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Preface 



This manual describes the programming procedures for tailoring and modifying 
the Network Communications Control Facility (NCCF). It is intended for the 
system programmer who defines the IBM-supplied NCCF program product and 
decides in what ways the program can be customized to suit the individual 
requirements of an installation. 



How This Book Is Organized 



Chapter 1, "Introduction," is a brief overview of NCCF customization and 
describes the syntax rules that are observed throughout the manual. 

Chapter 2, "Command Lists," describes how control statements, access method 
commands, NCCF commands, user-written commands, and other command lists 
can be coded into command lists that are invoked by name when required. 

Chapter 3, "Service Facilities and Macro Instructions," describes the NCCF 
service facilities and macro instructions that can be used in coding command 
processors, exit routines, and subtasks. This chapter is a prerequisite to Chapters 
4, 5, and 6. 

Chapter 4, "Command Processors," describes the service facilities and macro 
instructions that can be used to code command processors. The operating 
environment and control block considerations are discussed in detail. 

Chapter 5, "Exit Routines," describes the location and uses of exit routines 
throughout NCCF, as well as guidelines for user-coded exit routines. A sample 
exit routine is included. 

Chapter 6, "Subtasks," describes the procedures for coding a user-written 
subtask. A sample subtask is shown. 

Appendix A, "Command Summary," summarizes all commands available to 
NCCF operators and the places from which the commands can be entered. 

Appendix B, "NCCF Log and Hard-Copy Log," describes the JCL, formats, and 
output of the online disk log, as well as the hard-copy log that records operator 
transactions. 

Appendix C, "NCCF Control Blocks," shows the formats of the control blocks 
that are of concern to the NCCF user in customizing NCCF. 

Appendix D is an example of a user-written command processor. 

Appendix E contains two examples of user- written data services command 
processors. 

Appendix F is an example of a user-written full-screen command processor. 

Appendix G is a glossary that defines terms and abbreviations applicable to 
NCCF. 
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Prerequisite Publications 

Readers should be familiar with the basic functions and capabilities of NCCF as 
described in: 

Network Communications Control Facility General Information, GC27-0429 

In addition, the following publication explains the program structure of NCCF 
and how the program is installed: 

Network Communications Control Facility Installation, SC27-0430 

The following publication describes NCCF operator commands: 

Network Communications Control Facility Terminal Use, SC27-0432 

Publications for Additional Information 

Advanced Communications Function for VTAM (ACF/VTAM) programmers 
may also find useful the information in: 

ACF/VTAM Programming, ST27-0449 (formerly SC27-0449): ACF/VTAM 
Version 1 Release 2 

ACF/VTAM Programming, SC27-0449: ACF/VTAM Version 1 Release 3 

ACF/VTAM Version 2 Programming, SC27-0611 

ACF/VTAME Programming, SC27-0442 

Advanced Communications Function for TCAM (ACF/TCAM) programmers 
may find useful information in: 

ACF/TCAM Application Programming, SC30-3135: ACF/TCAM Version 2 

The following publications contain information on 3270 systems: 

3271, 3272, 3275 Control Unit Description and Programmer's Guide, 
GA23-0060 

3274 Control Unit Description and Programmer's Guide, GA23-0061 

3276 Control Unit Description and Programmer's Guide, GA1 8-2081 

Notes on Terms Used in This Manual 

Throughout this publication, unless otherwise noted, references to ACF/VTAM 
include ACF/VTAM Version 1 Release 2, ACF/VTAM Version 1 Release 3, 
ACF/VTAM Version 2, and ACF/VTAME. References to ACF/TCAM 
include ACF/TCAM Version 2, Releases 2, 3, and 4. 

References to ACF/VTAM and ACF/TCAM cross-domain environments 
presume the presence of the Multisystem Networking Facility or ACF/VTAM 
Version 2. ACF systems can, of course, also operate with a single domain. 

References to VSE in this manual refer to the DOS/VSE system control 
programming with the VSE/ Advanced Functions program product. 



References to VSE/OCCF in this manual refer to the Virtual Storage Extended 
Operator Communications Control Facility program product. 

The term network has at least two meanings. A public network is a network 
established and operated by common carriers of telecommunication 
Administrations for the specific purpose of providing circuit-switched, 
packet-switched, and leased- circuit services to the public. A user application 
network is a configuration of data processing products, such as processors, 
controllers, and terminals, established and operated by users for the purpose of 
data processing or information exchange, which may use transport services 
offered by common carriers or telecommunication Administrations. 

Network, as used in this publication, refers to a user application network. 

Other terms used in this manual are defined in the glossary. 
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Chapter 1. Introduction 



This manual discusses those Network Communications Control Facility (NCCF) 
features - command lists, command processors, exit routines, and subtasks - that 
allow an installation to customize NCCF to fit its own requirements. 

• Command lists. Control statements, NCCF commands, access method 
commands, user-written commands, and other command lists can be coded 
into command lists, which are stored in a file during NCCF definition and 
invoked by name for execution when required. 

• Command processors. IBM supplies a number of command processors as 
part of NCCF. NCCF service facilities can be used in user-written 
command processors. An installation can code its own command processors 
in assembler language and define the command verbs as described in NCCF 
Installation. 

• Exit routines. The user can write programs to screen or edit messages and 
data to and from NCCF at various points in the program. 

• Subtasks. An installation can code its own subtask to provide central 
control of a processor or of a resource. 

In MVS, NCCF executes in a single address space. In OS/VS1, NCCF 
executes in its own partition. In VSE, NCCF executes in its own partition or as 
a subtask in a partition belonging to ACF/VTAM, ACF/VTAME, or the 
Virtual Storage Extended/Operator Communication Control Facility 
(VSE/OCCF). NCCF executes as a user program, in problem program state 
and user key; command processors and exit routines execute as subroutines of 
NCCF. 

It is possible for code executing on behalf of one NCCF operator to affect the 
code supporting another operator. To prevent such undesirable interaction and 
possible impact on the security controls imposed on NCCF operators, the 
installation should control and assure that command processors or exit routines 
refer only to those data areas described in this manual; coding should refer only 
to the control blocks belonging to the operator issuing a request. 

User command processors, exit routines, and command lists written for NCCF 
Release 1 are source compatible with NCCF Release 2. Reassembly using the 
current level of NCCF macro libraries is required. 

The following chapters describe how to code command processors, exit routines, 
and command lists, and each chapter contains examples of each type. The 
systems programmer for an installation should decide the functions desired 
beyond those supplied as part of NCCF, and plan accordingly. 

Syntax Used to Describe Macro Instructions 

Throughout this manual, the following rules or syntax apply: 

Capital letters represent values that must be coded without change. 
Brackets ([ ]), braces ({}), "or" bars ( | ), and elipses (...) should not be 
coded. 
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Lowercase letters represent operands for which a value, address, or name 
must be supplied. 

Brackets ([ ]) enclose operands or symbols that are optional. If brackets 
are not present, an item or group of items must be coded. Optional 
operands are those that may be coded or omitted independently of other 
operands. In some cases, the omission of an operand may cause the 
corresponding feature or function to be omitted; in other cases, specific 
vali a s are assigned by default when an operand is omitted. 

An "or" bar ( | ) between operands or braces ({}) enclosing operands 
indicates that one operand from among those listed must be coded. 

An underlined value represents the default of a particular operand. If such 
an operand is omitted, NCCF uses the underlined value. 
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Chapter 2. Command Lists 



This chapter describes NCCF command lists. It explains what command lists are, 
why they are useful, and how to code them. Sample NCCF command lists are 
shown at the end of the chapter. 



Introduction to Command Lists 
What Is a Command List? 



A command list is a group of commands and special instructions with a name that 
applies to the whole group. To run that group of commands and instructions, the 
operator calls that command list by entering its name at a terminal, and all of the 
commands and instructions are run automatically. 



What Can Command Lists Help You Do? 



Command lists can help simplify routine or repetitive tasks. With a command list, 
an operator can get many different functions by typing just one name. A 
command list also allows an operator to supply values for a complex command 
without typing the command or understanding the command and the values in it. 
Command lists can be written to process an access method message automatically, 
with no operator action. 

Here is an example of a command list called STATUS. 

LIST STATUS=TASKS 

LIST STATUS=SPAN 

LIST STATUS-OPS 

MSG SYSOP,ALL CHECKS ARE COMPLETED 

By typing "STATUS," an operator displays the status of tasks, spans, and 
operators, and sends a message to the system console operator. 

The following command list, "CHECK" allows the operator to vary the LIST 
commands issued: 

LIST SCOPE=£1 
LIST TIMER=S2 
LIST STATUS=S3 

If the operator types "CHECK ALL,OPER2,SPANS," the status of all spans, all 
scope commands, and timer commands for operator OPER2 are displayed. 

The simplest form of command list is a list containing NCCF commands to be run 
in order. Control statements, variables, parameter, and assignment statements 
may also be used in a command list. These provide even more functions and are 
described later in the chapter. It is best to start with a simple command list first, 
and then add additional functions as necessary. 



Who Can Use Command Lists? 



Once a command list has been created, any NCCF operator can use that 
command list by entering the command list name. A command list may be 
restricted to a group of operators by using the scope of commands facility 
described in NCCF Installation. 
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Naming and Filing Command Lists 



The system programmer writes the command lists. They can be built prior to 
starting NCCF or while NCCF is running, and are members or B books stored in 
the file defined as DSICLD. The name of the command list is used as the member 
or book name. 

Note: If you plan to update or create command lists while NCCF is running, you 
should define DSICLD without secondary extents. This prevents a member from 
being filed in a new extent that NCCF cannot reference until it is closed and 
restarted. 



Defining Command Lists to NCCF 



Defining Command Lists in OS/VS 



Defining command lists to NCCF in OS/VS is required in certain circumstances 
only. 

If scope checking is desired, define the command list as follows: 

clistname CMDMDL MOD=DSICCP 

To call a command list from an access method message, the message identifier 
must be defined to NCCF as the name of a command list using a CMDMDL 
statement, as follows: 

messageid CMDMDL MOD=DSICCP 

For more information, see "Invoking a Command List from an Access Method 
Message." 

For more information on defining command lists to NCCF, refer to the section on 
the CMDMDL statement in NCCF Installation. 



Defining Command Lists in VSE 



In VSE, a command list must be defined to NCCF in one of two ways. The 
command list can be defined using a CMDMDL statement in the form: 

clistname CMDMDL MOD-DSICCP 

The command list can also be defined to NCCF by including as the first statement 
in the command list the following command list definition statement: 

[label] CLIST 

The label is not examined by NCCF. If present, it must begin in column one. 
"CLIST" begins in column 2 or later, and is preceded by at least one blank. (For 
OS/VS, this VSE definition statement is not required, and will be ignored if 
present.) 

If scope checking is desired, define the command list as follows: 

clistname CMDMDL MOD=DSICCP 
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To call a command list from an access method message, the message identifier 
must be defined to NCCF as the name of a command list using a CMDMDL 
statement, as follows: 

messageid CMDMDL MOD=DSICCP 

For more information, see "Invoking a Command List from an Access Method 
Message." 

For more information on defining command lists to NCCF, refer to the section on 
the CMDMDL statement in NCCF Installation. 



Invoking Command Lists 



Invoking a Command List from an Operator Terminal 



The operator can enter a command list name from the terminal in the same way as 
a command and operands are entered. When the command list name is entered, 
the command list begins processing. Message responses and other information are 
sent to the operator, depending on the contents of the command list. 



Invoking a Command List from a User-Written Command Processor 



User-written command processors may call command lists. Command lists 
initiated in this manner are queued until execution of the command in progress 
and other stacked commands or command lists has been completed. See Chapter 
4, "Command Processors," for information on how to write a command 
processor. 



Invoking a Command List from Another Command List 



A command list referred to within a command list is executed completely before 
execution of the calling command list continues. This process is called nesting. 
NCCF allows up to 16 nested command lists. If you concatenate the DSICLD 
command list data sets, file the calling command list and all its nested command 
lists in the same data set. 

Variables can be passed to a command list if the variable is defined in the 
invoking command list, and if the value of the variable is not longer than 255 
characters. Nested variables are allowed. If after one substitution, the value 
generated is still a variable (preceded by &) substitution is performed again. For 
example, if the ABC command list is defined as: 

XYZ LINES , CLSTRS , TERMS , CDRMS , ACT , INACT , EVERY , S 1 , S2 

and if the XYZ command is defined as: 

D NET,SS8,SS9 
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the following ACF/VTAM commands are generated for the following operator 
input: 

Input ACF/VTAM Command Output 

ABC 1,5 D NET,LINES,ACT 

ABC 4,7 D NET,CDRMS,EVERY 

ABC 2,5 D NET,CLSTRS,ACT 

ABC 3,6 D NET,TERMS,INACT 

Invoking a Command List from an Access Method Message 

A command list can be invoked by a message received by NCCF from 
ACF/VTAM or ACF/TCAM. 

Note: Messages from the Terminal Access Facility, or from other IBM program 
products that work with NCCF cannot invoke a command list. 

The command list can be used to send a response to the message or to reword or 
delete the message. If a command list is used to reword or to delete an access 
method message, the original message is sent to the NCCF disk log, but not to the 
operator's console or to the hard-copy log. The operator receives only those 
messages issued by the command list. 

When an access method message is used to call a command list, the message 
identifier must be identified to NCCF as a command list, using the CMDMDL 
statement. 

Each word of a message (as separated by blanks and commas) is considered a 
separate parameter when the command list is called. The first word of the 
message after the message identifier is the first parameter. By using the 
parameters, each word of the message may be indexed separately. This helps the 
command list to reword or to respond to the message. 

An access method message that requires a reply is preceded by by Lnn; nn 
represents the reply number. In this case, the message identifer is still considered 
the name of the command list. Lnn is the first parameter, and the first word of the 
message is the second parameter. 

Note: There are special considerations for unsolicited access method message. 
These messages invoke command lists that run under the primary POI task (PPT) 
rather than under the operator station task (OST). Certain commands cannot be 
used in PPT command lists. See "Command Lists Running under the PPT" for 
more information. 

The following is an example of using a command list to reply to an ACF/VTAM 
message: 

Lnn IST284A OPTION TO RELOAD ncpnm AVAILABLE - REPLY 'YES' 

OR 'NO' OR 'YES, LOADSTA=LINKSTANAME ' 
Lnn IST284A OPTION TOt RELOAD ncpnm AVAILABLE - REPLY 'YES' 
I OR 'NO' OR 'YES, LOADSTA=LINKSTANAME ' 
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The message identifier is defined as a command list, using the CMDMDL 
statement (see NCCF Installation): 

IST284A CMDMDL MOD=DSICCP (OS/VS) 
5C84A CMDMDL MOD=DSICCP ( VSE ) 

When the message is received, it is prefixed by Lnn; nn represents the reply 
number. The command list treats the Lnn as &1 and the reply YES is sent to 
ACF/VTAM by a command list. 

For OS/VS, member IST284A contains the following: 

REPLY S1 ,YES 

For VSE, book DSI5C84A contains the following: 

REPLY £1,YES 

The VSE message identifier 5C84A must have the DSI prefix added to the book 
name before the book is filed in the VSE source statement library. 

In VSE, the DSI prefix must also be used to list a command list based on a 
message identifier; for example: 



LIST CLIST=DSI5C84A 

Command Lists Running under the Primary POI Task 



Most command lists run under the operator station task (OST). However, some 
command lists are run under the primary POI task (PPT). Command lists run 
under the PPT if they are: 

• Called by an unsolicited access method message. 

• Specified with an NCCFIC statement to execute as soon as NCCF is 
initialized. 

• Called with an AT or EVERY command that specifies PPT as an operand. 
(PPT allows the command to be run even when the operator is not logged 
on.) 

The PPT command list is user-written and defined to NCCF in the same way as 
any other command list. All output messages produced as a result of the 
command list are sent to the authorized message receiver and logged under that 
task. Messages originating under the PPT are flagged with a "P" in the seventh 
character of the domain name field. 

The following commands cannot be used in a command list executing under the 
primary POI task: 



AUTOWRAP 


INPUT 


RESET 


SWITCH 


CANCEL 


LOGOFF 


ROUTE 




CLOSE 


MOVE 


START 




GO 


PAUSE 


STOP 





In addition* the &PAUSE control statement, Terminal Access Facility commands, 
and immediate commands cannot run under the PPT. 
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The Command List Language 



Coding Guidelines 



Variables 



Command lists are written in a special command list language. This command list 
language is described in the following sections. 



The following are some guidelines to keep in mind when coding command lists: 

• The command list statement must be within the first 7 1 characters of an 
80-character record. Column 72 should be left blank. Columns 73^-80 are 
reserved for optional sequence numbers. 

• Continuation of a command list statement to the next line is not allowed. 

• The end of a command list is not indicated in any special manner. There is no 
END statement. The command list ends when the last command list 
statement is processed. 

• A command list statement may contain any number of leading or trailing 
blanks. Anywhere one blank may be used within a statement, any number of 
blanks may be used. 

• The suppression character (defined with the SUPPCHAR operand of the 
NCCFID definition statement) may be coded to prevent a command or any 
statement of a command list from appearing on the operator's screen, 
hard-copy log, and NCCF log. If used, the suppression character must be 
coded in column one of the command list statement. In the example below, ? 
has been defined as a suppression character: 

?* COMMAND LIST UPDATED 2/5/80 BY OPERATOR IRENE 
START DOMAIN=£1 

PAUSE ENTER GO WHEN MESSAGE DSI809A ARRIVES FROM 61 
?ROUTE &1 ,OPER1 , 1 23456 

The first and last lines of the command will be suppressed. 



A command list statement may contain parameters or variables to be replaced by 
actual values at execution time. A command list variable is a symbol with an 
ampersand (&) as the first character, followed by 1 to 1 1 alphanumeric 
characters. There are three kinds of variables: 

• Parameters 

• Control variables 

• User variables 
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Parameters 



Parameters are passed to a command list when the command list is invoked. Up 
to 31 positional parameters may be passed. The parameters appear after the 
command list name and are delimited by either a blank or a comma. A parameter 
may be up to 255 characters; parameters longer than 255 characters are 
truncated. The following special characters may be used within a parameter if the 
parameter is enclosed in single apostrophes: blank, period, equal sign, apostrophe, 
comma. Text within single apostrophes is treated as a single operand. Two 
commas in a row indicates a null parameter. 

For example, assume that the command list FLAG is invoked as shown: 

FLAG RED, BLUE WHITE '=',,'THE U.S. FLAG' 

This command list has six parameters. The fourth parameter is an equal sign, the 
fifth is null, and the sixth is a phrase: THE U.S. FLAG. 

When the command list is invoked, each of the parameters is substituted in the 
command list wherever there is an ampersand followed by a number from 1 
through 31 (&n). The ampersand indicates substitution, while n indicates which of 
the 31 positional parameters is substituted. The &n is deleted and replaced by the 
parameter. 

Consider the FLAG command list again. If one line in the command list read: 

£6 IS £1 , £3, AND £2 

after substitution, this line would read: 

THE U.S. FLAG IS RED, WHITE, AND BLUE 

When the parameter is substituted, the text to the right of the &n is moved enough 
to make room for the parameter. No spaces are added or deleted, and no other 
characters are affected. 

Parameters may be referenced as many times as necessary in any given line. 
There are no restrictions about parameter sequence. In other words, &5 may be 
referenced before &2. Substitution is from right to left for each command list line 
and the right-most &n is treated first. 

The maximum number of parameters allowed is 3 1. If an ampersand is followed 
by a number other than 1 through 3 1 , an error message results. 

If the ALTER command list is defined as: 

VARY NET,ACT,ID=£1 
VARY NET,INACT,ID=£2 

and the command list is invoked by this entry: 

ALTER ABLE, BAKER 

the commands executed are: 

VARY NET,ACT,ID=ABLE 
VARY NET,INACT,ID=BAKER 
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Control Variables 



Control variables are variables that are predefined by NCCF; their substitution 
values are initialized and maintained by NCCF. The control variables are shown 
in Figure 2-1. 



Variable 


Value 


&APPLID 


Application program identifier for the task under which the command list is 
running (NCCF domain ID appended with a 3-character alphanumeric value 
assigned by NCCF). 


&DATE 


The current date in the form mm/dd/yy. 


&HCOPY 


Resource name for the hardcopy device started by this operator. (If there is 
no hard-copy device for this operator, &HCOPY is null.) 


&LU 


Resource name for this physical operator station. 


&MSG" ,r >D 


For command lists invoked from an ACF/VTAM message, the 5-character 
ACF/VTAM module identifier. This module identifier is removed from the 
message by NCCF before the command list is invoked. 
&MSGMOD is valid only if the ACF/VTAM MSGMOD facility is in effect; 
if this facility is not in effect, &MSGMOD is null. 


&NCCFCNT 


Total number of domains with which this operator can establish a session. 


&OPID 


This NCCF operator's identifier. 


&PARMCNT 


Number of parameters specified by the invoker of the command list. 


&PARMSTR 


Character string following the command that invoked this command list. 
(If there are no parameters, &PARMSTR is null). 


&RETCODE 


Return code from a command processor or another command list. The user 
may set &RETCODE with the &EXIT control statement to any positive 
value or to -1 . &RETCODE may be tested to determine command list 
processing. 

All negative return codes are reserved for definition by NCCF. Return codes 
-1 , -2, and -3 may be useful for command lists. -1 may be set by the user 
with the &EXIT control statement. -2 and -3 are set by NCCF, but the user 
may test for them in a command list using &RETCODE. 

-1 NCCF forces the termination of the executing command list and all 
nested command lists. 

-2 Invalid command; no command is executed, but the command list is 
not terminated. 

-3 Command is not in the operator's scope of commands; no command is 
executed, but the command list is not terminated. 


&TASK 


Character string "PPT", "OST", or "NNT", depending on the task under 
which the command list is running. &TASK allows the same command list 
to run under any task (using conditional processing for PPT restrictions). 


&TIME 


The current time in the form hh : mm. 



Figure 2-1. Control Variables for Command Lists 
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User Variables 



Command List Labels 



User variables are any variables that are not parameters or control variables. A 
user variable name is specified as an ampersand (&) followed by 1 to 1 1 
alphanumeric characters. A-Z, 0-9, #, @, $ are valid alphanumeric characters. 
The first character following the ampersand must be nonnumeric. For example, 
examine the following sample variables: 
Valid Invalid 



&A 

&USERVARNAME 

&@23456 



&2ABC (&2 will be substituted as 

a parameter) 
&INVALIDVARNAME (too long) 
&A% (invalid character) 



User variables are initialized to null with a length of if the first use does not 
provide a value. The user can initialize a variable by using it on the left side of an 
assignment statement (&USERPARM = 8) or by providing it as a variable on a 
&PAUSE statement. 



A label, if present, is the first nonblank in a command list record and consists of a 
dash ( — ) followed by 1 to 11 alphanumeric characters (A-Z, 0-9, #, @, $). Any 
command list statement except a comment line may have a label. The command 
list statement follows the label and is separated from the label by at least one 
blank. If a label is the only word on a command list statement, the statement is 
assumed to be a null statement and may be used as the target of a &GOTO or 
&BEG WRITE statement. Labels must be unique; if a duplicate label is 
encountered, the command list is terminated. A label is not scanned for variable 
substitution unless it is an operand on a &GOTO or &BEGWRITE control 
statement. 



Command List Statements 



Examine the following samples: 

VALID: 

-LABEL 1 MSG READER, THIS IS CORRECT 
-$IRENE MSG READER, THIS IS ALSO CORRECT 
-NULL 
INVALID: 

-INVALIDLABEL MSG READER, THIS LABEL IS TOO LONG 
-GLENN *LABELS ARE NOT ALLOWED ON COMMENT LINES 
-8PRIS MSG READER, LABEL CANNOT BE SUBSTITUTED HERE 
MSG READER, LABEL MUST BE FIRST NON-BLANK -LABEL 1 



There are five types of command list statements: 
Null statement 
Comment 
Command 

Assignment statement 
Control statement 
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Null Statements 



Comments 



Commands 



A command list statement containing all blanks or only a label is a null statement. 
If a label is present, the null statement may be the target of a &GOTO or 
&BEGWRITE statement. Otherwise, the null statement is ignored. 



A command list statement that contains an asterisk (*) as the first nonblank 
character is treated as a comment, variable substitution is performed on 
comments, so if the comments are written to the screen they can reference the 
specific values of variables. (If you wish to write comments to the screen without 
variable substitution, use &BEGWRITE NOSUB, discussed later in this chapter.) 

Comments in command lists can be helpful for headings or simply as a way to 
display information. For example, a command list coded entirely with comments 
could be used to show the current network configuration to an operator. The 
following command list uses comments as a heading prior to the actual display of 
information requested by the command list: 

* STATUS OF ALL LINES * 
D NET , LINES, 61 



NCCF commands and user-written commands defined as "regular" or "both" 
may be issued in a command list. ACF/VTAM and ACF/TCAM commands 
may be issued in a command list. In addition, a command list may invoke other 
command lists. Immediate commands, the AGAIN command, and data services 
commands are not allowed in a command list. 

If the command list is invoked by an operator at a terminal or by a solicited access 
method message, the commands that can be issued within the command list are 
limited by the operator's span of control and scope of commands. 

If the command list is executed under the PPT, no span or scope checking is done, 
and certain commands cannot be issued. For more information, see "Command 
Lists Executing under the PPT. " 

Asynchronous full-screen commands (DSIPSS TYPE=ASYPANEL) should be 
coded only as the last commands in a command list. For more information on 
asynchronous commands, see the section in Chapter 4 titled "Full-Screen 
Command Processor Considerations." 

Terminal Access Facility commands may be used in a command list. BGNSESS 
FLSCN and RTRNSESS commands will cause the command list to stop running 
until the full-screen session is disconnected or ended. When the operator returns 
to NCCF mode, the command list will continue. 

For a quick reference of which commands can be used in command lists, see 
Appendix A. 
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Assignment Statements 



Control Statements 



An assignment statement is a statement of the form 

variable = expression 
The equal sign (=) must be delimited by blanks. 
expression may be one of the following: 

A constant or variable 

A built-in function (see "Command List Built-in Functions") 

An arithmetic expression consisting of numbers and/or variables separated by 
a plus (+) or minus (-) arithmetic operator. For example: 

3 + 4 &PARMCNT + 3 8 + -4 

5-2 &3 - &4 - &USERVARNAME 2 - -&P2 

Note that the arithmetic operators + and - must be delimited by blanks unless 
they indicate a negative or positive number (-4, +2). Thus, the expressions 4 
- 2 and 4 - -2 are valid, but 4 -2 is invalid and will cause the command list to 
terminate. 



Control statements are used to control the processing sequence of a command list. 
Control statements also allow the command list to send messages to the NCCF 
operator and to receive input from the operator. Control statements are 
processed by the command list processor. Figure 2-2 shows a summary of the 
control statements in NCCF. 



Control 
Statement 


Operands 


Description 


&BEGWRITE 


[SUB | NOSUB] [label] 


Causes subsequent lines to be written to the 
terminal until the specified label is reached. 


&CONTROL 


[ALL |CMD | ERR] 


Controls the writing of command list state- 
ments to the operator station. 


&EXIT 


[number] 


Terminates command list processing. 


&GOTO 


label 


Transfers control to the command list line 
beginning with the specified label. 


&IF 


logical expression &THEN 
command list statement 


If the logical expression is true, the com- 
mand list statement will be executed. 


&PAUSE 




"7 NOINPUT | \" 
< VARS variable [...]> 
_' String variable '_ 




Suspends the execution of a command list. 


&WRITE 


[text] 


Writes a message to the operator station. 



Figure 2-2. Summary of Control Statements for Command Lists 
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&BEGWRTTE 



&CONTROL 



Each command list control statement begins with a control symbol in the form 
&word. All operands and operations must be delimited by blanks. A control 
statement must be coded on one line and cannot be continued on the following 
line. Only one control statement can be coded on a line. If an error is detected in 
a control statement, the control statement and an error message are written to the 
operator's terminal; if the command list cannot recover from the error, command 
list processing is terminated. 



&BEGWRITE causes subsequent lines to be written to the terminal, until the 
specified label is reached. Labels can be coded on lines being written out by 
&BEGWRITE, and used later as targets of a &GOTO statement or another 
&BEGWRITE statement. 

Statement Operands 



&BEGWRITE [SUB | NOSUB][label] 



SUB 

causes substitution of variables in lines written to the terminal. If there are 
blanks before the first message character, the line is shifted left until the 
first nonblank character is in column 1 . If you want the blanks sent to the 
screen, code a nonblank character in column 1 . 

NOSUB 

suppresses substitution of variables in lines written to the terminal. 
NOSUB is the default. 



label 



is a standard command list label that is used to indicate the point at which 
no more lines are to be written to the terminal. The line on which label is 
coded is not written to the terminal and is treated as the next command list 
statement to be processed, label may be a variable that has been assigned a 
value earlier in the command list. If label is not specified, one line will be 
written to the terminal. If label cannot be found, the remainder of the 
command list is written to the terminal, and the command list is terminated. 



&CONTROL controls the writing of command list statement to the operator 
station. 



Statement 



Operands 



&CONTROL [ ALL | CMD | ERR] 



ALL 



specifies that all command list statements are to be written to the operator 
station, after variable substitution and before execution. This includes: 

• Comments 

• Null statements 
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• Control statements 

• Assignment statements 

• Commands 

ALL is the default if &CONTROL is not specified. 



CMD 



ERR 



specifies that only commands are to be written to the operator station, after 
variable substitution and before execution. Other command list statements 
are not displayed. 



specifies that only command list statements in error and commands that 
return a nonzero return code are to be written to the operator station, after 
execution. 



&EXIT 

&EXIT terminates command list processing. 



Statement Operands 



&EXIT [number] 



&GOTO 



number 

provides a return code to the caller of the command list (see &RETCODE, 
in the section titled "Control List Variables")- If a number is not specified, 
a zero return code is generated. Return code -1 causes this command list 
and all nested command lists to terminate. Other negative return codes are 
reserved for use by NCCF, 

Note: Reaching the end of the file also terminates command list processing, and 
generates a zero return code. 



&GOTO transfers control to the command list statement beginning with a 
specified label. 



Statement Operands 



&GOTO label 



&IF 



label 

is a standard command list label. Label may be a variable that has been 
assigned a value earlier in the command list. 



&IF defines a logical expression and tests the truth of that expression. If the 
expression is true, then the command list statement is executed. Otherwise, the 
statement is ignored and the next sequential statement in the command list is 
executed. 
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Statement Operands 



&IF logical expression &THEN command list statement 

logical expression 

is an expression of the form 

expression logical-operator expression 

where expression is anything that can appear on the right side of an 
assignment statement, and logical-operator is one of the following logical 
operators: 



Logical Operator Meaning 

= (orEQ) Equal 

-. = (or NE) Not equal 

< (orLT) Less than 

> (orGT) Greater than 

<= (or LE) Less than or equal 

>= (or GE) Greater than or equal 

-. > (orNG) Not greater than 

-. < (orNL) Not less than 

The logical operator must be separated from the two expressions by blanks. 

&THEN 

is a required keyword. It must be separated from the logical expression and 
the command list statement by blanks. 

command list statement 

refers to any unlabeled command list statement. If the logical expression 
specified after &IF is true, this statement is executed. 

Note: In a statement of the form 

gIF gvariablel = gvariable2 STHEN . . . 

the variables are substituted prior to syntax checking. If either hvariablel or 
&variable2 has a null value, a syntax error results. To avoid this problem, prefix 
both variables with the same character. For example: 

SIF ASvariablel = ASvariable2 gTHEN . . . 
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&PAUSE 



&PAUSE suspends the execution of the command list. A "P" is displayed in the 
upper-right corner of the operator screen while the operator is in pause state. The 
&WRITE or &BEGWRITE statement should be used prior to &PAUSE to tell the 
operator the reason for the pause, and to describe the actions that should be taken 
by the operator. Execution of the command list is resumed when a GO command 
is received from the terminal or ended when a CANCEL command is received. 
The GO command may also be used to provide input to the command list. For 
more information on GO and CANCEL, see NCCF Terminal Use. 

&PAUSE should not be coded in a command list executing under the primary POI 
task. If &PAUSE is coded under the PPT, an error message is issued, the pause is 
ignored, and processing continues with the next command list statement. 

Note: If the CANCEL command is issued in a nested command list, all command 
lists in the invoking chain are terminated. 

Statement Operands 

&PAUSE ( NOINPUT ) 



< VARSvariablel[. ..] 
( STRING variable 



NOINPUT 

specifies that no operands are permitted on the GO command. An error 
message will be issued if any operands are encountered. (&PAUSE 
NOINPUT is equivalent to the PAUSE command with no text.) This is the 
default. 

VARS 

specifies that the operands on the GO command are to be assigned to 
variablel, variable!, and so on. All operands are treated as positional. If 
the number of operands on the GO command exceeds the number of 
variables on &PAUSE, the extra operands are discarded, an error message 
is issued, and command list processing continues. If the number of 
variables on &PAUSE exceeds the number of operands on the GO 
command, the remaining variables are set to null. Two commas in a row on 
the GO command results in one null variable. For example, if the GO 
command is: 

GO 1 , , 5 
and the &PAUSE control statement is: 

SPAUSE VARS SA,SB,SC 

&A will be set to 1 and &C will be set to 5. &B will be null. 

STRING 

specifies that the entire operand string on the GO command is to be treated 
as one operand and assigned to variable No quotes are needed; if quotes 
are entered they will become part of the variable. If no operand is specified 
on the GO command, variable is set to null. 
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&WRTTE 



&WRITE writes a message to the operator station. 



Statement Operands 



&WRITE [text] 



text 



is a character string to be written to the terminal operator's screen after 
variable substitution is performed. If no text is specified, a blank line is 
written to the screen. 

If there are blanks before the first message character, the line is shifted left 
until the first nonblank character is in column 1. If you want the blanks 
sent + ~ 'he screen, code a nonblank character in column 1. To send a single 
quote or an apostrophe in a message, code two apostrophes. Also, if a 
single quote has several blanks before it, these blanks are changed to one 
blank. 



Command List Built-in Functions 



&CONCAT 



Command list built-in functions are used to perform evaluations of expressions 
and character strings. Built-in functions are features of the command list 
language that provide capabilities otherwise unavailable to the user. Built-in 
functions can be used only as an expression on the right side of an assignment 
statement (see "Assignment Statements"), or as an expression in an &BF 
statement. They cannot be part of an arithmetic expression. Figure 2-3 provides 
a suirm iry of the built-in command list functions in NCCF. 



Function 



Operands 



&CONCAT 



{variable | constant} {variable | constant} 



&CONCAT concatenates the values of two parameters to form a new value. The 
result must be a valid value for a variable. If the value of both parameters is null, 
the result of &CONCAT is null. If the resulting value is greater than 255 
characters, it is truncated to 255 characters. 



Function 


Operands 


Description 


&CONCAT 


(variable 1 

| constant! 
1 1 


variable 1 
constant! 


Concatenates the value of two operands to 
form a new value. 


&LENGTH 


/variable | constant j 


Provides the length of the operands in 
characters. 


&SUBSTR 


variable i [j] 


Substitutes a part of a string of charac- 
ters for the total character string. 


&NCCFID 


| variable | constant > 


Provides the identifier of the domain 
specified by the numeric operand. 


&NCCFSTAT 


/variable | constant \ 


Indicates the status of the specified 
domain name. 



Figure 2-3. Built-in Functions for Command Lists 
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&LENGTH 



&SUBSTR 



For example, assume you coded the following command list statements: 

SA - NCCFA 

SB = 001 

SC = SCONCAT SA SB 

The variable &C would be set to NCCFA001. 



Function 



Operands 



&LENGTH 



{variable | constant} 



&LENGTH provides the length of the parameter in characters. If the parameter is 
null, the result of &LENGTH is zero. 

For example, assume you coded the following command list statements: 

SA = KEVIN 

SC = SLENGTH SA 

The variable &C would be set to 5. 



Function 



Operands 



&SUBSTR 



variable i [j ] 



&SUBSTR substitutes a part of an indicated string of characters as a real value 
during command list statement execution. The string of characters to be used is 
the value of variable starting at position / with lengthy. / and j may be either 
constants or variables. If y is not specified or exceeds the number of characters 
remaining, the remaining length is used. The value of i must be greater than zero; 
the value of j must be zero or greater. If i exceeds the length of the variable ory is 
zero, the value of the function is considered null. If either the variable or i are 
null, the results will not be as expected. 

For example, assume you coded the following command list statements: 

gA = NCCFA003 

SB = SSUBSTR SA 6 

SC = SSUBSTR SA 1 5 

SD = SSUBSTR SA 6 10 

The variables &B and &D would be set to 003, and the variable &C would be set 
to NCCFA. 
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&NCCFID 



&NCCFSTAT 



Function Operands 



&NCCFK) {variable | constant} 



&NCCFID provides the identifier of the domain specified by the parameter. The 
value of the parameter must be a number in the range 1 to &NCCFCNT (see 
"Control Variables"). &NCCFID serves as an index to the list of domains with 
which the operator is authorized to establish a session. For an operator with 
specific authority (as defined on the AUTH statement in the operator's profile) 
this list is derived from the DOMAINS statement in the profile. For an operator 
with global authority, this list is derived from the RRD NCCF definition 
statements. Refer to NCCF Installation for more information on AUTH, 
DOMAINS, and RRD definition statements. 

To obtain the domain identifier of the domain in which the command list is 
running, use &AMP.SUBSTR &APPLID 1 j, where j is the length of the 
application program ID (&APPLID) minus three. For example, user variable 
&DOMID could be set to the name of the local domain by the following 
statements: 

SDOMID = SLENGTH SAPPLID 

SDOMID = SDOMID - 3 

SDOMID = SSUBSTR SAPPLID 1 SDOMID 

In the example above, assume &APPLID = NCCFA001. In the first line, 
&DOMID is set to 8. In the second line, the length of the three-digit NCCF 
identifier 001 is subtracted from the length of &APPLID, setting &DOMTD to 5. 
in the third line, &DOMID is set to the part of &APPLID starting at position 1 for 
a length of 5. This last statement results in setting &DOMID to the name of the 
local domain, NCCFA. 



Function Operand 



&NCCFSTAT {variable | constant} 



&NCCFSTAT indicates the status of the specified domain. The operand must be 
a valid NCCF domain identifier of 1 to 5 characters. If the operator has a session 
with the domain whose identifier is specified by the operand, &NCCFSTAT is set 
to the characters "ACT". If the operator does not have a session with the 
specified domain, &NCCFSTAT is set to the characters "INACT". 

For example, assume you coded the following command list statement to 
determine the status of domain NCCFA: 

SA = SNCCFSTAT NCCFA 

If NCCFA is active, &A is set to ACT. If NCCFA is not active, &A is set to 
INACT. 
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How NCCF Analyzes a Command List 



Command list statements are analyzed as shown in Figure 2-4. Each command 
list statement is parsed into separate syntactic elements, using blanks and commas 
as delimiters. Multiple blanks are considered as one delimiter; multiple commas 
are treated as multiple delimiters. Labels are removed from the command list 
statements. Each statement is scanned from right to left and substitution is 
performed on one element at a time, according to the following rules: 

• Substitution is not performed on a &PAUSE statement or the &THEN clause 
of an &IF statement (the &THEN clause is substituted only when it is to be 
executed). 

• Each element is scanned from right to left for an &. If an & is found, then it, 
along with the rest of the element to the right, is taken as the name of a 
variable and is replaced by the value of the variable. This substitution may 
increase or decrease the length of the element. 

• Variables for which a value cannot be found, are considered to be null. 

• Command list control symbols and built-in functions are not substituted. 

• If the first character to the right of the ampersand is numeric, the variable is 
assumed to be a parameter. 

• If a special character (nonalphanumeric) is encountered, it delimits the 
variable name. (For example, if an element contains &A=&XYZ first &XYZ 
is substituted, then &A is substituted.) 

• The scan resumes at the next character to the left, and the search for an 
ampersand continues. If another ampersand is found, it and the entire 
syntactic element to the right, including the previous substitution are taken as 
the name of a variable and replaced by its value. Note that the value 
substituted is not scanned for an ampersand. 

If the element is the target of an assignment statement, the scan stops on the 
second character to preserve the variable name to be assigned a value. For 
example: 

SB = 1 
SASB = 2 

will set user variable &A1 to 2. 

• This process is repeated until all syntactic elements have been analyzed. 

The statement is then analyzed to determine whether it is null, a comment, a 
control statement, an assignment statement, or a command. No further 
processing is done on null and comment statements. 
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Q. 



Read a command list 
statement. 




Parse the command list 
statement into separate 
syntactic elements. 



Remove label, if present. 



Perform substitution for 
the command list state- 
ment (see text description). 



Analyze the statement to 
determine its type. 



Write the statement to the 
operator's terminal unless 
writing has been limited 
by &CONTROLorthe 
statement contains a sup- 
pression character in 
column 1 . 



The statement is null. 



KD 



The statement is a 
comment. 



h© 




The statement is a control 
or assignment statement. 



The statement is a 
command. 




Process the control 
statement. 



-0 



Issue an error message. 



If &CONTROL= ERR, 
write the statement to 
the operator's terminal. 



-O 



Parse and analyze the 
command. 



Pass the command to the 
appropriate NCCF or user 
command processor. 



-0 



Figure 2-4. How NCCF Analyzes a Command List 
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Sample Command Lists 



Control and assignment statements are checked for syntax errors and then 
processed. If a syntax error is found, an error message is sent and the statement 
in error is written to the operator's terminal. Severe errors cause the command list 
to terminate. Some errors cause warning messages only; a default value will be 
used or the command list statement will be ignored. Processing will continue. If 
there are no major errors, the commands are parsed, analyzed, and then passed to 
the appropriate NCCF or user command processor for processing. The command 
processor return code is available as &RETCODE. &RETCODE is checked to 
determine if the command statement should be written to the terminal. 

After substitution, the command list statement is written to the terminal unless 
either writing has been limited by &CONTROL or the statement contains a 
suppression character in column 1. 



The IOBUF command list allows the invoker to start and stop buffer and I/O 
traces for a physical unit as follows: 

F NET , &2TRACE , TYPE=IO , ID- S 1 
F NET,S2TRACE,TYPE=BUF,ID=S1 

The following entry starts I/O and buffer traces for PU7: 

IOBUF PU7 

and generates the following commands: 

F NET , TRACE , TYPE=IO , ID=PU7 
F NET, TRACE , TYPE=BUF , ID=PU7 

The following entry stops the I/O and buffer traces for PU7: 

IOBUF PU7,NO 

and generates the following commands: 

F NET , NOTRACE , TYPE=IO , ID=PU7 
F NET , NOTRACE , TYPE=BUF , ID=PU7 

A command list can be used in a multiple-domain environment to aid the orderly 
reinstatement of HOST2 after HOSTS has backed up HOST2's resources. 



HOST1 




HOST2 




HOST3 






































IMOr 










L_ ._. 
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The command list is entered as follows: 

REINSTAT S1,S2,S3 

&1 is the NCP to be reinstated (NCP2); &2 is the host that was performing 
back-up (HOST3); &3 is the host that was backed up (HOST2). Thus, the 
command entered from HOST2 is: 

REINSTAT NCP2 , HOST3 , HOST2 

The REINSTAT command list is as follows: 

ROUTE S2 , V NET , REL , ID= S 1 , CDLINK=ACT 

*ENTER GO TO CONTINUE WHEN READY 

*OR ENTER CANCEL TO TERMINATE PROCESSING 

PAUSE 

ROUTE S2,V NET,ACT,ID=HST3CDRS 

ROUTE HOST1 , F NET , ID-HST3CDRS , CDRM=( S3 , S2 ) 

V NET,ACT,ID=S1 

MSG ALL, REINSTATEMENT COMPLETE FOR NCP S1 and HOST S3 

ROUTE HOST 1, MSG ALL , REINSTATEMENT COMPLETE FOR NCP S1 AND 

HOST 83 
ROUTE HOST3,MSG ALL, REINSTATEMENT COMPLETE FOR NCP S1 AND 

HOST S3 



Sample Conditional Command Lists 



Sample 1 



Member or B book STOPCD contains the following command list statements: 



SCONTROL CMD 

* THIS COMMAND LIST STOPS ALL CROSS-DOMAIN SESSIONS FOR 

* ONE OPERATOR 



SI = SNCCFCNT 

i 

i 

-LOOP SIF SI = STHEN SEXIT 

t 

SID = SNCCFID SI 
SSTAT = SNCCFSTAT SID 



INITIALIZE COUNT OF POSSIBLE 
CROSS-DOMAIN SESSIONS 

IF ALL POSSIBLE SESSIONS 
CHECKED, EXIT 



NAME OF DOMAIN 

STATUS OF DOMAIN 

IF THE DOMAIN IS ACTIVE, 
STOP THE DOMAIN 

SIF SSTAT - ACT STHEN STOP DOMAIN=SID 

SUBTRACT 1 FROM COUNT 

CONTINUE LOOP 



SI = SI - 1 



SGOTO -LOOP 



00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
00000008 
00000009 
00000010 
00000011 
00000012 
00000013 
00000014 
00000015 
00000016 
00000017 
00000018 
00000019 
00000020 
00000021 
00000022 
00000023 
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The command list statements in Sample 1 (STOPCD) are explained below: 

Statement 

Number Explanation 

1 Sets the &CONTROL value to CMD; only commands are sent 

to the operator's terminal screen. 

2-6,8-9, 11,13 Comment statements to explain what the command list is 
15-17,19,22 doing. 



7 Assignment statement to set user variable &I to the value of 

the NCCF control variable, &NCCFCNT. &I now contains 
the number of domains with which the operator can establish a 
session. &I will be used to control the number of times Ihe 
command list should loop. 

10 Defines the label -LOOP. Tests the value of &I. If &I is equal 

to 0, the command list will exit (&EXIT). If &I is not equal to 
0, the command list will continue processing with the next 
statement. 

12 Sets the user variable &K) to the value of the built-in function 

&NCCFID. &I is used as the operand for the &NCCFID 
function. &ID is set to domain name &I as specified on the 
DOMAINS definition statement. 

14 Sets the user variable &STAT to the value of the built-in 

function &NCCFSTAT. &ID is used as the operand for the 
&NCCFSTAT function. The value of &STAT will be the 
characters "ACT" if domain &ID is active, and "INACT" if 
domain &ID is not active. 

1 8 Tests the value of &STAT to determine if a STOP command 

should be issued for that domain. If the value of &STAT is 
"ACT", the &THEN clause of the &IF statement will be 
executed. If the value of &STAT is not "ACT", no further 
processing will be done on this statement. 

21 Subtracts 1 from the value of &I. Statement 10 checks &I to 

decide if the command list should continue. 

23 Transfers control to statement 10, where -LOOP is defined. 

Processing continues with statement 10. 
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Sample 2 



When the STOPCD command list is executed, the operator will see the following 
on the terminal screen: 

STOPCD 

STOP DOMAIN=domain1 

STOP DOMAIN=domain2 



STOP DOMAIN=domainn 

DSI013I COMMAND LIST STOPCD COMPLETE 



Member or B book NOWEVERY contains the following command list 
statements: 



* TO ISSUE A COMMAND NOW AND EVERY HH:MM MINUTES, 00000001 

* ISSUE: NOWEVERY HH : MM , OQtawAND 00000002 

* 00000003 
SCONTROL ERR 00000004 
SLENP1 - SLENGTH S1 00000005 
SSTARTP2 = SLENP1 + 2 00000006 
SLENPARMSTR - SLENGTH SPARMSTR 00000007 
SLENCMD = SLENPARMSTR - SLENP1 -1 00000008 
SCMD = SSUBSTR SPARMSTR SSTARTP2 SLENCMD 00000009 

* ISSUE COMMAND NOW 00000010 
SCMD 00000011 

* ISSUE COMMAND EVERY HH:MM, AS SPECIFIED 00000012 
EVERY SPARMSTR 00000013 
SEXIT 00000014 



The command list statements in Sample 2 (NOWEVERY) are described below: 



Statement 

Number Explanation 

1-2,10,12 Comment statements to explain what the command list is 

doing. 

3 Blank statement; this statement will be sent to the terminal as 
a blank line. 

4 Sets the &CONTROL value to ERR. From this point on in the 
command list, only error statements are sent to the operator's 
terminal screen. 

5 Assignment statement that uses the &LENGTH built-in 
function to set the user variable &LENP1 to the length of the 
first parameter entered on the command list invocation 
(hh:mm). 

6 Assignment statement that sets the user variable 
&STARTP2 to the value of the user variable &LENP1 plus 
2. &STARTP2 will be used to obtain the entire character 
string of the command parameter on the command list 
invocation. 
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Statement 
Number 



Explanation 



Uses the built-in function &LENGTH to set the user variable 
&LENPARMSTR to the length of the parameters entered on 
the command list invocation (&PARMSTR). 

Sets the user variable &LENCMD to the value of 
&LENPARMSTR (see statement 7) minus &LENP1 (length of 
first parameter) minus 1. 

Uses the built-in function &SUBSTR to isolate a section of the 
&PARMSTR NCCF variable. &CMD is set to the part of 
&PARMSTR starting at position &STARTP2 (see statement 6) 
for a length of &LENCMD (see statement 8). &CMD now 
represents the command entered on the command list 
invocation. 



11 
13 



Executes the command specified by &CMD (see statement 9). 

Issues the EVERY command using the NCCF variable 
&PARMSTR as the operand for the command. 



14 



Causes the command list to terminate. This statement is 
optional for this command list. If the &EXIT is omitted, the 
command list terminates after statement 13 because an 
end-of-file is reached. 



When the NOWEVERY command list is executed, the operator will see the 
following on the terminal screen: 

NOWEVERY HH: MM, COMMAND 

TO ISSUE A COMMAND NOW AND EVERY HH:MM MINUTES, 

ISSUE : NOWEVERY HH : MM , Command 



Sample 3 



Since &CONTROL ERR is specified, no more statements will appear at the 
operator's terminal unless errors are detected. 



Member or B book VLOGON contains the following command list statements: 



CLIST 

&CONTROL CMD 

&IF A&1 - A? STHEN SBEGWRITE -TEXT 

* THIS CLIST GENERATES A VARY ACTIVATE COMMAND ACCORDING TO 

* 3 PARAMETERS PASSED. EACH PARAMETER HAS A DEFAULT AND 

* DOES NOT HAVE TO BE SPECIFIED. 

* PARAMETERS: 

* &1 = NAME OF ID TO BE ACTIVATED; DEFAULT IS NCPNAME 

* S2 = NAME OF CONTROLLER APPLICATION; DEFAULT IS SNAPPL 

* &3 = TYPE OF ACTIVATION—COLD OR WARM; DEFAULT IS WARM 

* FOR EXAMPLE: 

* VLOGON 

* VLOGON IDNAME,CONTROLAPPL,COLD 

* VLOGON IDNAME,,WARM 



00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
00000008 
00000009 
00000010 
00000011 
00000012 
00000013 
00000014 
00000015 
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-TEXT gIF Ag1 = A? gTHEN gEXIT 00000016 

gIF gLENGTH g1 NE gTHEN gGOTO -LAB1 00000017 

g1 - NCPNAME 00000018 

-LAB1 SIF gLENGTH g2 NE gTHEN gGOTO -LAB2 00000019 

g2 = SNAAPPL 00000020 

-LAB2 gIF gLENGTH g3 NE gTHEN gGOTO -CMD 00000021 

g3 - WARM 00000022 

-CMD V NET,ACT,ID=g1 ,LOGON=g2,g3 00000023 



The command list statements in Sample 3 (VLOGON) are described below: 



Statement 

Number Explanation 

1 VSE CLIST statement to define this command list to NCCF. 
In VSE, the CLIST statement is required if a CMDMDL 
statement does not exist for this command list. In OS/VS, the 
CLIST statement is not required and will be ignored. 

2 Sets the &CONTROL value to CMD; only commands will be 
sent to the operator's terminal screen. 

3 Tests the first parameter (&1) on the command list invocation. 
"A" is used as part of the variable name tested to ensure that a 
syntax error will not result if no &1 parameter is entered. If &1 
is a question mark (?) the &THEN clause is executed. This is a 
"help" function coded into the command list. &BEGWRITE 
writes out statements 4-15 at the operator's terminal and 
statement 16 causes the command list to terminate. If &1 is 
not a question mark, the command list continues processing 
with statement 4. 

4-15 Comment statements to explain what the command list will do. 

These comments will be written to the screen only if statement 
3 is true. 

16 Defines the label -TEXT which is used as an operand on the 
&BEGWRITE control statement (see statement 2). This 
statement tests to see if the first parameter is a question mark 
(?). If it is, the command list terminates. If not, the command 
list continues processing with statement 17. 

1 7 Tests whether the first parameter (& 1 ) was supplied on the 
command list invocation. If it was supplied, processing 
continues with statement 19; if not, processing continues with 
statement 18. 

1 8 Sets the first parameter (&1) to the default value, NCPNAME, 
if &1 was not supplied on the command list invocation. 
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Statement 

Number Explanation 

19 Defines the label -LABI and tests whether the second 
parameter (&2) was supplied on the command list. If it was 
supplied, processing continues with statement 21; if not, 
processing continues with statement 20. 

20 Sets the second parameter (&2) to the default value, SNAPPL, 
if &2 was not supplied on the command list invocation. 

21 Defines the label -LAB2 and tests whether the third parameter 
(&3) was supplied on the command list. If it was supplied, 
processing continues with statement 23; if not, processing 
continues with statement 22. 

22 Sets the third parameter (&3) to the default value, WARM, if 
&3 was not supplied on the command list invocation. 

23 Defines the label -CMD. The symbols &1, &2, and &3 are 
replaced with their values in the command "V NET 
ACT,ID=&l,LOGON=&2,&3". After value substitution, the 
command is displayed on the operator's terminal and executed. 
The command list terminates after this statement because an 
end-of-f ile is reached. 

If the VLOGON command list is executed with an ID of IRENE and a controller 
application of NCCF2 specified, the operator will see the following on the 
terminal screen: 

VLOGON IRENE ,NCCF2 

-CMD V NET, ACT, ID=IRENE,LOGON=NCCF2, WARM 

DSI013I COMMAND LIST VLOGON COMPLETE 

Output from the ACF/VTAM VARY command would appear here. 

When the VLOGON command list is executed with a question mark (?) as the 
first parameter, the operator will see the following on the terminal screen: 

VLOGON ? 

Statements 4-15 from the command list will appear here 

DSI013I COMMAND LIST VLOGON COMPLETE 

The VLOGON statement will appear exactly as it is specified on the command list 
invocation. 
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Chapter 3. Service Facilities and Macro Instructions 



This chapter describes the NCCF service facilities and macro instructions that 
may be used when coding your own command processors, exit routines, and 
subtasks. The chapter is divided into two parts, a guide explaining some of the 
service facilities available and how to use them effectively, and a reference section 
listing the macro instructions that invoke the NCCF service facilities. You should 
become familiar with this chapter before reading Chapters 4, 5, and 6. 



Service Facilities Guide 



NCCF provides service facilities for user-written command processors, exit 
routines, and subtasks. User-written programs that use these service facilities may 
need to have addressability to the main vector table for NCCF (MVT) and must 
use the DSICBS macro instruction (see below) to get a copy of the DSECT for 
the service routine vector list (SVL), and other control blocks that are needed. 
Figure 3-1 is an overview of the NCCF macro instructions and describes which 
control block fields must be initialized by the user and which macro instructions 
require addressibility to the MVT. 

Main Vector Table Addressability 

To establish addressability to the main vector table (MVT), code the following: 

For a command processor: 

USING DSICWB,1 

L register, CWBTIB 

USING DSITIB, register 

L register ,TIBTVB 

USING DSITVB, register 

L register, TVBMVT 

USING DSIMVT, register 

For an exit routine: 

USING DSIUSE,1 
L register , USERTVB 

USING DSITVB, register 
L register,TVBMVT 

USING DSIMVT, register 

For a subtask: 

LR register ,1 

USING DSITVB , register 

L register, TVBMVT 

USING DSIMVT, register 
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Macro 
Name 


Function 


User Input 


NCCF Output 


Control Block 
Input Fields 
User Must Set 


Control Block 
Fields Set by 
NCCF 


MVT 

Addressability 

Required 


DSICBS 


Includes control blocks 
during compilation. 


Control block name 


Control block is 
included (optionally 
listed). 


None 


None 


No 


DSICES 


Analyzes a command. 


Address of parse 
descriptor block (PDB) 
or command buffer 


Address of entry in 
system command 
table (SCT) 


None 


None 


Yes 


DSIDATIM 


Obtains and formats 
date and time. 


Output area and format 
desired 


Time and date. 


None 


None 


Yes 


DSIDEL 


Deletes a user-specified 
module. 


Module name 


Module is deleted. 


None 


None 


No (OS/VS) 
Yes (VSE) 


DSIDKS 
CONN 

FIND 
READ 

DISC 


Obtains a buffer; 
connects subtask to a 
file. 


File name 


Buffer is obtained; 
subtask is connected 
to file. 


None 


HDRBLENG, 
HDRMLENG, 
HDRTDISP 


Yes 


Finds a book or member 
and reads first record. 


Book or member name 


Book or member is 
found; record is read. 


None 


HDRMLENG, 
HDRTDISP 


Yes 


Reads a record into 
buffer obtained by 
CONN. 


Book or member name 


Record is read, or 
end-of-data is 
indicated. 


None 


HDRMLENG, 
HDRTDISP 


Yes 


Frees a buffer; 
disconnects subtask 
from a file. 


File name 


Buffer is freed. 


None 


None 


Yes 


DSIFRE 


Releases storage 
obtained by DSIGET. 


Address and amount of 
storage 


Storage is freed. 


None 


None 


No if Q=NO 
Yes if Q=YES 


DSIGET 


Obtains storage. 


Address and amount of 
storage 


Storage is obtained. 


None 


None 


No if Q=NO 
Yes if Q=YES 


DSIKVS 


Determines whether an 
operator is authorized 
to use a given keyword 
or value. 


Command and keyword 
or value to be checked 


Authorization return 
code 


None 


None 


Yes 


DSILCS 
CWB 

SWB 

TVB 


Obtains a command 
work block (CWB). 


Address of area to 
return CWB address 


Address of CWB 


CWBTIB (after 
CWB is 
obtained) 


CWB header, 
address of 
next CWB. 


Yes 


Frees a command 
work block (CWB). 


Address of CWB 


CWB is freed. 


None 


None 


Yes 


Obtains service work 
block (SWB). 


Address of area to 
return SWB address 


Address of SWB 


SWB TIB (after 
SWB is 
obtained) 


SWB header, 
address, of 
next SWB 


Yes 


Frees service work 
block (SWB). 


Address of SWB 


SWB is freed. 


None 


None 


Yes 


Finds task vector block 
(TVB) for a given 
subtask. 


Address of TVB where 
search is to begin; LU 
name, or operator ID, 
or next active operator 
station task, hardcopy 
task or NCCF-to-NCCF 
task 


Address of TVB that 
matches specified 
input. 


None 


Address of 
TVB 


Yes 


DSILOD 


Loads a user-specified 
module. 


Address of BLDL list. 


Module is loaded. 


None 


None 


No (OS/VS): 
Yes (VSE) 
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Macro 
Name 


Function 


User Input 


NCCF Output 


Control Block 
Input Fields 
User Must Set 


Control Block 
F«lds Set by 
NCCF 


I 1 

MVT 

Addressability 

Required 


DSIMBS 
SIZE 

BFR 


Calculates message 
length. 


Message number, 
message inserts 


Length of message 


None 


HDRMLENG 
(length of 
message) 


Yes 


Builds a message. 


Address of area where 
message is to be 
returned 


Message is built. 


All BUFHDR 
fields except 
HDRMLENG 


HDRMLENG 


Yes 


DSIMDS 


Generates NCCF 
message definition 
module. 


Number and text of 
message 


Message is added in 
message definition 
module. 


None 


None 


No 


DSIMQS 


Queues a message to 
a task. 


Address of buffer with 
message in it, task ID of 
destination 


Message is queued 
and then sent to 
display screen or 
hard-copy log. 


All BUFHDR 
fields 


HDRSENDR 


Yes 


DSIOIS 


Searches operator 
identification table 
(OIT). 


Operator identification 


Bit position of 
operator identifica- 
tion in OIT (also 
used as input to 
DSISSS Macro 
instruction) 


None 


None 


Yes 


DSIPAS 


Searches for aliases for 
command parameters. 


Address of parse descrip- 
tor block (PDB) and 
number of the entry in it 


Alias value or 
entered value or 
blanks 


None 


None 


Yes 


DSIPOS 


Posts completion of an 
event. 


Address of event control 
block (ECB) and comple- 
tion code to be put in 
ECB 


Event control block 
is posted. 


None 


None 


No 


DSIPRS 


Builds a parse descrip- 
tor block (PDB). 


Address of storage in 
which PDB is to be 
built 


PDB is built. 


PDB header, 
indicating 
length (to 
avoid overlay) 


All PDB fields 
except header, 
PDBCMDA, 
PDB flags 


Yes 


DSIPSS 


Writes a message to the 
display screen or sends 
input to NCCF-to- 
NCCF task (NNT). 


Address of data to be 
sent, name of 
destination 


Message is written. 


All BUFHDR 
fields 
including 
HDRMLENG 


HDRMLENG 
modified 


Yes 


DSIRDS* 


Searches authorization 
and resource table 
(ART); optionally marks 
entry as active or 
inactive. 


LU name to be located 
in ART 


Position ot entry in 
ART 


None 


None 


Yes 


DSISSS* 


Searches span name 
table (SNT). 


Bit position to be 
checked in SNT (value 
obtained from DSIOIS) 
and address of entry in 
SNT where search is to 
begin 


Address of first 
entry in SNT with 
operator bit set to 1 


None 


None 


Yes 


DSIWAT 


Waits for completion of 
an event. 


Name of event control 
block (ECB) or address 
of ECB list 


None 


None 


None 


No (OS/VS) 
Yes (VSE) 


DSIWCS 


Writes a message to the 
system operator's 
console. 


Address of buffer 
with message in it 


Message is written. 


HDRMLENG, 
HDRTDISP 


None 


Yes 


DSIWLS 


Writes a message on the 
NCCF log and hard- 
copy log. 


Address of buffer con- 
taining record to be 
logged 


Message is written. 


All BUFHDR 
fields 


None 


Yes 
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Control Block 


Control Block 


MVT 


Macro 








Input Fields 


Fields Set by 


Addressability 


Name 


Function 


User Input 


IMCCF Output 


User Must Set 


NCCF 


Required 


DSIZCSMS 


Requests CIV Jta 
across the CNM 
interface. 


Address of SWB and 
DSKB; input buffer 
address and length; RU 
address and length; dest- 
ination name; target 
name 


Requested CNM data 
is returned. 


None 


None 


No 


DSIZVSMS 


Requests VSAM 


Address of SWB and 


Appropriate VSAM 


All BUFHDR 


None 


No 




services for a DSCP. 


DSRB; type of VSAM 
request; type of access; 
VSAM key address and 
length; address of user 
work buffer. 


function is 
performed. 


fields 







*ACF/VTAM only. 
Figure 3-1 (Part 3 of 3). Summary of NCCF Macro It ctions 

Control Block Considerations 



Figure 3-2 is an overview of the control blocks used by the NCCF service 
routines. You should become familiar with the NCCF control blocks described in 
Appendix C before beginning design of your command processor, exit routine, or 
subtask. In addition, the following chapters each contain detailed descriptions of 
the control block fields needed for the particular task. The service work block 
(SWB) and task vector block (TVB) are particularly important. The complete 
NCCF control block structure is described in NCCF Logic. 

Some i * the more important control blocks are described in detail in this chapter 
and in tne following chapters in this book. 

Chapter 3: 

DSISWB Is the parmameter list for most of the NCCF service routines. 

BUFHDR Is the standard NCCF buffer header. 

DSHFR Maps an internal fuction request which is a formatted buffer that is 
transmitted to a subtask's message queue using the DSIMQS macro 
instruction. 

DSICBH Is the control block header for most of the NCCF control blocks. 

DSIPDB Is used to analyzes input to NCCF. 

Chapter 4: 

DSICWB Is the parameter list for a command processor. 

DSISCE Contains information about the command. 

DSIDSRB Is used for communication between the data services task (DST) and a 
data services command processor (DSCP). 

Chapter 5: 

DSIUSE Is the parameter list for an exit routine. 
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Figure 3-2. Overview of the Control Blocks Used by NCCF Service Routines 
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DSICBS Macro Instruction 



Service Work Block (SWB) 



Chapter 6: 

DSIMVT Is the main control block for information throughout NCCF. 

DSITVB Represents potential and active NGCF subtasks and subtask 
parameters. 

DSITIB Stores information about an active subtask. 



The DSICBS macro instruction is used to gain access to the control blocks needed 
by your command processor, exit routine, or subtask. In order to use the NCCF 
service facilities, you need access to the DSISVL and DSISWB. You probably 
also want to include DSITIB to obtain a buffer header. The other control blocks 
are optional depending on the type of program you are writing and the service 
facilities you need. See Figure 3-1 under "User Input" and "Control Block Fields 
User Must Set" for a guideline. In addition, for a command processor, include 
DSICWB; for an exit routine, include DSIUSE; for a subtask, include DSITVB. 

The DSICBS macro might be coded as follows in a command processor: 

DSICBS DS;ICWB , DSISVL , DSISWB , DSIMVT , DSIPDB , DSITVB , DEFER=ALL 

DEFER allows you to specify exactly where the control blocks should be 
expanded in your program. DEFER=ALL specifies that all subsequent DSICBS 
macro instructions are not to be expanded until DSICBS DEFER=INCLUDE is 
encountered. 



The service work block (SWB) contains equates for most of the service routine 
return codes returned in register 15 (DSILCS return code equates are in 
DSIMVT). DSISWB is also used as a parameter list for most of the NCCF service 
routines. The parameter list passed to the command processor (CWB) or to the 
exit routine (USE) contains the address of an SWB that can be used by the 
invoked routine. If this SWB is being used for some other purpose, such as a work 
area, the control block location services macro DSILCS should be used to request 
another SWB. The DSILCS macro might be coded as follows: 

DSILCS CBADDR= ( R2 ) , SWB=GET 

If you obtain another SWB with the DSILCS macro, be sure to initialize the 
SWBTIB field of the DSISWB with the address of the caller's DSITIB before you 
request NCCF services. 

When the program no longer requires the SWB obtained with the DSJLGS macro, 
you must free this DSISWB. To free the DSISWB in the example above, you 
would code: 

DS LLCS CBADDR= ( R2 ) , SWB=FREE 

Note: If you use an SWB as a work area, be careful not to overlay the SWBTIB 
or SWBCBH fields because these fields are not reinitialized by NCCF. If you 
must change either of these fields, reinitialize them before returning control to 
NCCF. 
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Task Vector Block (TVB) 



Buffer Header (BUFHDR) 



There is one task vector block (TVipfdr each subtask in NCCF. The TVB 
contains information about the status of the subtask. Certain service routines, 
Such as DSIPSS, use the TVB to store control information that is important for 
processing their code. The task information block (1TB) is an extension of the 
TVB and represents an active task. 

The TVB contains pointers to the MVT and the TIB. From these control blocks, 
you can obtain the addresses of other important control blocks. 



The buffer header (BUFHDR) portion of the task information block (DSITIB) is 
shown in Figure 3-3. The BUFHDR DSECT is included in the DSITIB DSECT; 
it must be included in every message or command buffer and must precede all text 
in the buffer. The fields are described below and must be initialized as shown in 
Figure 3-1 under "Control Block Input Fields User Must Set." 

Field Description 

HDRMLENG Indicates the length in bytes of the text data in the buffer as a 
number between and 32,767. 

HDRBLENG Contains the actual length of the entire buffer: header, plus 
text, plus unused space. If the buffer is to be released with 
DSIFRE, this length is used. The length may be up to 32,767 
bytes. 

HDRIND Is used by NGCF in certain situations, in general it should be 

set to zero. 

HDRMTYPE Contains a character that indicates the current usage of the 

buffer. It may also indicate the origin of the command. If the 
buffer is written out using the DSIPSS macro, this field is 
displayed and logged. The values for this field are defined in 
the BUFHDR expansion and are described in Appendix C of 
this manual. 

HDRTDISP Is the offset from the start of the buffer header to the first byte 

of text. 

HDRTSTMP Contains the time that the command was received, in the 

packed decimal form X'hhmmssOC where hh is the hour of the 
day from 00 to 23, mm is the minutes of the hour from 00 to 
59, ss is the seconds of the minute from 00 to 59, and 0C is a 
packed decimal sign. See the DSIDATIM macro instruction. 

HDRDOMID Shows the identifier of the domain that originated the message. 
This field is displayed and logged. The domain identifier for 
the NCCF under which a particular program is running is 
shown in the MVTCURAN field of DSIMVT. 
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Standard Buffer Header 



0(0) 



4(4) 



8(8) 



12(C) 



20(14) 



HDRMLENG 
Message Length 


HDRBLENG 

Total Length of Buffer 


HDRIND 
Reserved 


HDRMTYPE * 
Message Type 


HDRTDISP 

Displacement to the First Charac- 
ter of the Text from Start of Header 


HDRTSTMP 
Time Stamp Field 


HDRDOMID 
Domain Identification 




HDRPID 
POI Header 
ID 


HDRPSTAT 
POI Status 
Fields 


HDRPMSG 

Message Sequence Number 



HDRPOI 



4 

i 



f Must be initialized by user before write operation. 



Message Command Extension (used by DSIMQS Macro) 



24 (18) 



28 (1C) 



HDRNEXTM 
Chain Field 



HDRSENDR 

Operator ID of Sending Subtask 



Figure 3-3. Buffer Header (BUFHDR) 

Field Description 

HDRPOI Is a reserved field. 

Message Is an extension to the BUFHDR that is used when a buffer 

command is transferred from one subtask to another. It is built by 

extension the DSIMQS macro when creating a buffer for the 

destination task. Other buffers do not need these fields. 

HDRNEXTM Is an internal NCCF field that is used to chain buffers 
together. 

HDRSENDR Contains the originator's operator ID, which is the contents of 
the sender's TVBOPID field. 

Text Gan start anywhere after HDRPOI in a standard buffer or 

after HDRSENDR in a buffer with a message command 
extension. Use HDRTDISP to locate the start of text. 
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Example of BUFHDR Usage 



tf) The DSIDKS macro uses the buffer header to read a disk data set, which is 

blocked according to a user-specified blocking factor. The disk services module 
DSBDRS prefixes the physical read buffer with a BUFHDR. When the first record 
is requested, a disk read is done for the first block. Then HDRTDISP is adjusted 
to index the first logical record, and HDRMLENG is set to reflect the logical 
record length. When the DSIDKS macro is issued for a subsequent logical record, 
HDRTDISP is adjusted to index to the next logical record, until the block is 
exhausted. Then another disk read is done, and the process starts again from the 
first logical record in the block. 



Internal Function Request (IFR) 



Control Block Header (CBH) 



The internal function request (IFR) is a formatted buffer that is transmitted to a 
subtask's message queue using the DSIMQS macro instruction. An IFR has 
HDRMTYPE specified as I HDRMTYPE=X'C9'; symbol HDRTYPEI). Bc-ause 
an IFR is transferred by DSIMQS, it always contains a message command 
extension when it is received. (When building an IFR, the extension is optional). 
If a command processor receives control with a command buffer and 
HDRMTYPE=HDRTYPEI, it is assumed that there is a command extension and 
an IFR. 

The IFRCODE is 2 bytes, specified as X'0003', X'0008', or X'OOOB'. All other 
values are reserved for NCCF use. Code 3 indicates that the remainder of the 
buffer is a command to be executed. Code 8 only applies to an OST or NNT; it is 
user-defined and the IFR is passed to DSIEX13, the message receiver exit 
routine. Code B indicates that the command is input from a full-screen panel. 
The HDRTDISP field in an IFR should contain the displacement to the 
IFRCODE. For IFR codes 3 and B, NCCF modifies HDRTDISP and 
HDRMLENG so that all commands appear the same to the command processor; 
the command verb is followed by the operands. The IFR section is logically 
removed. HDRTDISP contains the offset to the command verb. 



The NCCF control block header (CBH) is a 4-byte header that identifies all 
NCCF control blocks (except BUFHDR and IFR). 



Field Description 

CBHID Is a 1 -byte field that identifies the control block type. The 

DSICBH DSECT defines the permissible values. 

CBHTYPE Is a 1 -byte field. The task information block (TIB) and task 

vector block (TVB) each contain an identifier for the type of 
subtask that the block represents. Values allowed are PPT, 
OST, NNT, HCT, TCT, and optional subtask. The DSILCS 
macro instruction also uses this byte in management of CWBs 
and SWBs. In all other cases, this byte is reserved and should 
be set to zero. 
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Parse Descriptor Block (PDB) 



Field Description 

CBHLENG Is a halfword that contains the length of the control block. It 

represents the length that is preallocated or the length that is 
obtained by the DSIGET macro instruction. For example, a 
PDB has a fixed size portion and a variable number of entries. 
CBHLENG for a PDB contains the length of both parts. 



The fields of the PDB are described below. 

Field Description 

PDBGBH Identifies the storage as a PDB and gives its size. Since PDBs 

are of no fixed length, this length is important. Most PDBs in 
NCCF are 160 bytes, which allows for the fixed portion of the 
PDB plus 37 entries. If the 160-byte PDB is overrun, DSDPRS 
issues an 8 return code. 

PDBCMDA Points to the entry in the system command entry (DSISCE) 

for the verb in the buffer (the verb that caused this command 
processor to be called). This entry is used as a parameter by 
the DSIPAS (parameter alias services) and DSIKVS 
(KEYCLASS and VALCLASS lookup services) macros. 

PDBBUFA Contains the address of the command buffer, as does 

CWBBUF (described earlier). 

PDBIMMED Is a flag that indicates whether the command processor is 
regular or immediate. When the PDBIMMED bit is on, the 
command processor is executing as an immediate command 
processor, as a subroutine of the receive (terminal input) exit 
(in OS/VS, under an IRB). A command processor can only be 
immediate if it is running under an operator station task (OST) 
or a cross-domain task (NNT). The user defines whether a 
command is regular or immediate on the CMDMDL definition 
card with the TYPE operand (see NCCF Installation). 

When the first bit in PDMIMMED is off, the command 
processor is executing as a regular command processor or as a 
data services command processor under the control of the 
subtask mainline (PRB in OS/VS). The DISPSS 
TYPE=OUTPUT macro should be used to write to the 
terminaL However, command processors running under a data 
services task (DST) may not use the DSB?SS macro. The 
jJSJtMi^s macro snouiu oc uscuiu scuu icai w a. tviuuu<u i W 
the appropriate subtask (such as the request originator or the 
receiver of authorized messages) . 

A queued DSIGET request must code the EXTT=NO operand 
when operating as a regular command processor. 
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Field Description 

PDBNOENT Is the number of syntactical element entries in the PDB, 

including the verb and all operands. The delimiters used for 
this command's parse are blank, comma, period, and equal 
sign. 



PDB Syntactical 
Element Entries 



Each syntactical element creates one entry in 

this portion of the PDB. The verb is always the 

first entry. The number of syntactical element entries is in 

PDBNOENT. Each entry contains the length, the delimiter, and 

the offset from the beginning of the buffer. 



PDBLENG Contains the length of the particular syntactical element. It 

does not include the length of the delimeter. When two 
delimiters (except blanks) occur sequentially, the value of the 
length is zero; two delimiters separated by a blank or blanks 
also create a zero length entry. The offset is set to point to the 
second delimiter. The standard NCCF parsing delimiters are 
the blank, comma, period, and equal sign. 

PDBTYPE Contains the delimiter character that separates this element 

from the succeeding one. When a command processor is given 
control, the delimiters used in parsing the command are blank, 
comma, period, and equal sign. The end of the record is 
treated as if it is delimited by a blank. 

Multiple blanks are treated as one blank and blanks preceding 
a syntactical element are ignored. For example, 
'bbbverbboperandl,bbboperand2\ creates an entry for the 
verb first, ignoring the preceding blanks, an entry for 
operandi, delimited by a comma, and one for operand2 
delimited by a blank. 

PDBDISP Contains the offset from the start of the buffer to the first 

character of the nth syntactical element; for example, element 
addr(n) - PDBBUFA + PDBDISP(n). 



Getting and Freeing Storage 



DSIGET is used to obtain storage and DSIFRE is used to free that storage after 
use. 

DSIGET. LV=4096 , A=( REG2 ) ,BNDRY=PAGE 

This example specifies that 4096 bytes of storage are to be obtained and the 
address placed in the the fullword pointed to by register 2. 

DSIGET may also be used to queue the obtained storage to the user's task vector 
block (TVB). This allows NCCF to free the storage at logoff in the case of 
abnormal termination. An example to obtain this queued storage is: 

DSIGET LV=2032,A=(REG2 ) ,BNDRY=PAGE,REENT=YES ,LISTA=( REG3 ) , 
Q=YES TASKA=MYTVB , EXIT=YES 
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This macro specifies that 2032 bytes of storage are to be obtained and the address 
placed in the fullword pointed to by register 2. The storage is to be aligned on a 
page boundry. Since the first 16 bytes of the page are used by NCCF in Q=YES, 
only 2032 bytes were requested, 16 less than the page size. (Page size is 2048 
bytes for OS/VS i and VSE, 4096 bytes for MVS.) REENT=YES (OS/VS 
only), specifies that the reentrant form of DSIGET is to be used. In this example, 
the storage is to be queued to the TVB (Q=YES) specified by the symbolic name 
MYTVB (TASKA=MYTVB). LISTA=(REG3) specifies that register 3 contains 
the address of a 14-byte area in dynamic storage which DSIGET uses to obtain 
the queued storage. EXIT=YES must be coded if the storage request is from 
DSEEX01, DSIEX02 (if TVBINXIT flag is on), or an immediate command. 



Getting, Freeing, and Locating a Control Block 



Disk Services 



DSILCS is used to get and free a DSISWB or a DSICWB. This macro instruction 
may also be used to locate a DSITVB. 

The following example obtains a DSISWB and places the address of the DSISWB 
in the SWBAREA: 

DS ILCS CBADDR=SWBAREA , SWB=GET 

A register that points to SWBAREA may also be specified. To free the storage, 
use SWB=FREE instead of SWB=GET. 

To obtain a DSIGWB, use the same process used for a DSISWB, substituting 
CWB=GET for SWB=GET. 

DSELCS may also be used to locate a DSITVB by operator identification or LU 
name, to locate the next active DSITVB for a specific task type, and to locate the 
DSITVB for the authorized message receiver. 



Disk services retrieves data from NCCF partition data sets (OS/VS) or the source 
statement library (VSE). DSIDKS then locates a specified book or member and 
reads the records in that book or member. DSIDKS is used to obtain storage for 
the disk service area and initialize the data services block (DSIDSB) and the 
buffer header of the input buffer. 

Here is a series of examples using DSIDKS: 

DSIDKS SWB=( REG2 ) , DSBWORD=DISKADDR, TYPE=CONN , NAME=DSIPRF 

DSIDKS SWB=( REG2 ) , DSBWORD=DISKADDR , TYPE=FIND , NAME=MEMNAME 

DSIDKS SWB= ( REG2 ) , DSBWORD=DISKADDR , TYPE=READ 

DSIDKS SWB=( REG2 ) , DSBWORD=DISKADDR, TYPE=READ 

DSIDKS SWB=(REG2 ) , DSBWORD=DISKADDR,TYPE=DISC,NAME=DSIPRF 

In the examples above, DSIDKS initializes the disk service control blocks and 
input buffer, and returns the address of the DSIDSB in DISKADDR. DSIPRF is 
the NCCF definition name to be used. DSIDKS then finds the member or book 
name MEMNAME, and reads the first record. The next two sequential records 
are also read. When the three records have been read, DSIDKS frees the control 
blocks and the input buff er. 
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Presentation Services 



Messages can be sent by NCCF using several different macro instructions: 
DSIPSS, DSIMQS, DSIWCS, and DSIWLS. DSIPSS is used to control screen 
formats, organize the data for a specific device, and send the data. Another form 
of DSIPSS is used to send a command to an NCCF in another domain. DSIMQS 
is used to send messages to the operator. DSIWCS sends a message to the system 
operator console, and DSIWLS sends a message to the NCCF log and the 
operator's hard-copy log. Figure 3-4 shows how these macro instructions are used 
for communication from an NCCF operator's OST. DSIPSS and DSIMQS are 
described in greater detail below. 



Domain Boundary 




Terminal for This 
Operator Station 

DSIPSS 

TYPE= OUTPUT 
IMMED 
PANEL 
AS YP AN EL 



System 

Operator's 

Console 



ACF/TCAM Version 2 
Operator Control or 
ACF/VTAM POI 

a 

ACF/TCAM 
Version 2 or 
ACF/VTAM 
Commands 



DSIWLS 



NCCF Log or 
Hard-Copy Log 
for This Operator 
Station 




DSIPSS 
TYPE=XSEND 



DSIMQS 



Another Subtask 
in this Domain 



DSIPSS 
TYPE= OUTPUT 
IMMED 




Figure 3-4. Use of NCCF Macro Instructions for Communication from an Operator Station Task 
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DSEPSS 



Several different types of presentation services are available through the DSIPSS 
macro instruction. The NCCF screen modes are described in greater detail in 
NCCF Terminal Use. They include the following: 

Standard NCCF Mode 

Messages sent to the NCCF screen consist of a 12-byte prefix, followed by 
68 bytes of data. The prefix includes a 1 -character code for the entry type 
and a domain name field indicating the domain that generated the message. 
If the message exceeds 68 bytes, it is broken between words and the 
message is continued on the next screen line, indented 12 characters. 

Full-Line Mode 

Messages sent to the NCCF screen appear as 80 bytes of data with no 
prefix; messages longer than 80 bytes are truncated. Except for this 
difference, the full-line screen appears the same as the standard NCCF 
screen. The messages appear in a line-by-line protocol. Full-line mode 
supports application programs such as NPDA, a separately orderable IBM 
program product, that use full-line, 80-byte output. 

From a subtask other than an OST, full-screen title-line output is 
supported, allowing full-line messages to be displayed with title headings. 
(See "Full-Line Command Processor Considerations" in Chapter 4.) 

Full-Screen Mode 

Application-built 3270 data streams containing commands, orders, and data 
are sent to the NCCF screen. In this way, information can be presented 
with a full screen of data. (See "Full-Screen Command Processor 
Considerations" in Chapter 4). 

For synchronous full-screen mode, 3270 data streams built by a command 
processor are sent to the terminal. Any input causes a command to be 
scheduled. The CLEAR key is used to escape from full-screen mode. 

For asynchronous full-screen mode, full-screen input and output can be 
processed asynchronously, allowing a command processor to obtain input 
without scheduling a command and to issue a series of requests and 
responses without interrupting processing. The asynchronous full-screen 
command processor may process an event control block (ECB) list of 
multiple events while waiting for operator input. The escape from 
asynchronous full-screen mode is user-coded. 

Use the chart shown in Figure 3-5 as a guide to help you code the DSIPSS macro 
instruction to obtain the type of output you desire. Other coding combinations 
are also possible. 

To send a command to an NNT, the DSIPSS TYPE=XSEND macro is used. To 
return data to the OST from the NNT, DSIPSS TYPE=OUTPUT is used. This 
data may be messages that the OST places on the operator's screen or commands 
to be executed by the OST. 
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Message Queuing 



DSIPSS Function 


Format of DSIPSS Macro Instruction 


Standard NCCF mode 

or 
NNT-to-OST 
communication 


DSIPSS SWB=(R2),TYPE=OUTPUT,OPT!OI\IS=MSG,BFR=(R3) 

or 
DSIPSS SWB=(R2),TYPE=OUTPUT,OPTIONS=SEG,BFR=(R3) 


Full-line mode: 
First line 
Middle line 
Last line 
Only line 


DSIPSS SWB=(R2),TYPE=OUTPUT,OPTIONS=FIRST,BFR=(R3) 
DSIPSS SWB=(R2),TYPE=OUTPUT,OPTIONS=MIDDLE,BFR=(R3) 
DSIPSS SWB=(R2),TYPE=OUTPUT,OPTIONS=LAST,BFR=(R3) 
DSIPSS SWB=(R2),TYPE=OUTPUT,OPTIOIMS=ONLY,BFR=(R3) 


Determine display 
screen size. 


DSIPSS SWB=(R2)TYPE=SCRSIZE,SIZE=SIZEAREA 


Determine output 
area size. 


DSIPSS SWB=(R2),TYPE=WII\IDOW,SIZE=SIZEAREA 


Send a single line 
to the immediate 
message area. 


DSIPSS SWB=(R2),TYPE=IMMED,BFR=(R3) 


Send from an OST 
to an IMNT in 
another domain. 


DSIPSS SWB=(R2),TYPE=XSEND,APPLID=APPLI\IAME,BFR = (R3) 


Send a formatted 
3270 data stream 
synchronously. 
Optionally, 
receive input. 


DSIPSS SWB=(R2),TYPE=PANEL,PANEL=PARM LIST 


Send a formatted 
3270 data stream 
and receive input 
asynchronously. 


DSIPSS SWB=(R2),TYPE=ASYPANEL,PANEL=PARMLIST 


Test if the OST 
has work pending. 


DSIPSS SWB=(R2),TYPE=TESTWAIT 


Wait in a command 
processor for NCCF 
and command 
processor events. 


DSIPSS SWB=(R2),TYPE=PSSWAIT,ECBLIST=ECBPARM 



Figure 3-5. Examples of Using the DSIPSS Macro Instruction 



DSIMQS is used to queue a user-supplied message to the message queue of a 
subtask's DSITVB in the same domain. The message may be sent to either the 
operator's screen or to the hard-copy log. Here is an example of DSIMQS: 

DS IMQS SWB= ( REG2 ) , BFR=BUFADDR , TASKID=MYTASK 

In the example above, the message buffer pointed to by BUFADDR is to be 
queued to the subtask with the subtask identification of MYTASK. 

The subtask identifiers can be found by checking the TVBOPID field of DSITVB. 
TVBOPID is initialized with the following: 

. For an OST or an NNT, the DOMAINID operand of the NCCFID definition 
statement appended with the identifier of the operator. 
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• For a PPT, the PPT APPL name, which is the NCCFID appended with the 
characters PPT. 

• For a DST, the TSKTD operand of the TASK definition statement for the data 
services task. 

• For an HCT, the LU name of the hard-copy device. 

• For an optional subtask, the user initializes this field. 

If AUTHRCV=YES is coded instead of TASKID, the message is sent to the 
authorized message receiver specified by the AUTH definition statement. If there 
is no authorized message receiver, the message is sent to the system console. 

The message buffer must have a properly initialized buffer header (BUFHDR), 
including the message command extension. Buffers that are formatted as internal 
function requests (EFRs) are not displayed. Instead, they cause the receiving 
subtask to take the action requested by the IFR. Refer to the sections "Buffer 
Header (BUFHDR)" 
and "Internal Function Request (IFR)" for more information. 



Resource Location (ACF/VTAM Only) 



The DSIRDS macro instruction is used in ACF/VTAM systems to locate an entry 
address for the resource in the authorizaton and resource table, DSIART. 
DSIRDS might be specified as follows: 

DS IRDS SWB= ( REG2 ) , LUNAME=LUADDR , ARTPOS=ENTRYADR 

For this example, the DSIART entry address for the resource pointed to by 
LUADDR will be returned in ENTRYADR. The resource will be marked as 
active. 

Figure 3-6 shows the relationships between the operator identification table 
(DSIOIT), the span name table (DSISNT), and the authorization and resource 
table (DSIART). The relative position of an entry in the operator identification 
table is represented by the bit position of each entry in the span name table (n 
bits). The relative position of an entry in the span name table is represented by 
the bit position of each entry in the authorization and resource table (m bits). 

For example, if a user wishes to find whether a particular operator is authorized to 
issue commands for a particular resource, follow this procedure: 

• Use the DSIOIS macro instruction to find the position of the operator's 
identification in the DSIOIT table. The identification is put in the fullword 
area pointed to by the OPID operand of the macro instruction. The relative 
position is returned to the fullword area pointed to by the OITPOS operand. 

• Use the DSISSS macro instruction to search DSISNT for the bit position that 
corresponds to the location of the operator identification entry in DSIOIT. 
The bit position is specified by the OITPOS operand of the macro instruction. 
It is best to begin the search at the beginning of the span name table. (The 
DSISNT address is found in the NCGF main vector table, DSIMVT; see 
NCCF Logic. ) The address of the first span entry that corresponds with a bit 
set to 1 is returned to the fullword area specified by the SNTADDR operand 
of the macro instruction. Because it is the address of the entry and not its 
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Figure 3-6. Table Field Relationships 



relative position that is returned, the starting address should be stored in 
another area to be used in any calculations that may be required to establish 
the entry's position. 

• Create a mask byte to check the bit position of the authorization and resource 
table DSIART that corresponds to the span name table entry position. 

• Use the DSIRDS macro instruction to find the address of the specific entry for 
the resource. The address of the entry is returned to a fullword area specified 
by the ARTPOS operand of the macro instruction. The resource name is 
specified on the LUNAME operand. 

• Use the mask byte to check whether the corresponding bit is set to 1. 

In the example shown in Figure 3-6, the DSIOIS macro can be used to determine 
the position of the identification OPID2 in DSIOIT. Position 2 is returned to the 
area specified by OITPOS. DSISSS can then be used to check bit position 2 in 
DSISNT. The first span name with a 1 in that position is SPAN2. The address of 
that entry is returned to the area specified by SNTADDR. Using the starting 
address and the address returned, and dividing the difference by the length of the 
DSISNT entries (found in DSIMVT), the relative position of SPAN2 can be 
calcualted. A mask byte can then be prepared to test the bit position 
corresponding to SPAN2 in DSIART. The DSIRDS macro instruction can then 
be used to find the address of the resource name in DSIART. If LU2 is specified 
in the area pointed to by the LUNAME operand, it is the second entry in 
DSIART. The mask byte can then be used at that location, showing that the 
operator whose identification is OPID2 can issue commands for LU2. If a match 
is not found, DSISSS can be invoked again to find another span. The starting 
address specified for the SNTADDR operand should be the address of the entry 
immediately following SPAN2. This process can be repeated until a span is found 
or the end of the table is reached. 
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Macro Reference 



This section explains how to code NCCF macros to request various service 
facilities. NCCF uses registers 0, 1, 14, and 15 for macro instruction expansion; 
the user should avoid these registers when using NCCF macro instructions. 
NCCF expects register 13 to point to a standard 72-byte save area. 



DSICBS Macro Instruction 



The DSICBS macro instruction is used to include the NCCF control blocks that 
are necessary for particular functions, such as a user- written command processor. 
The macro instruction ensures that a control block is included only once, that any 
necessary inner control blocks are included, and that all definitions for inner 
control blocks precede the definition of the outer control block. DSICBS also con- 
trols the format, and printing or suppression, of DSECTs for the control blocks. 



Name 


Operation 


Operands 




[name] 


DSICBS [cbname,...] [,EJECT= {YES | NO}] 






(ALL ) 








) THESE ( 








,DEFER^ j INCLUDE^ 


[,PRINT= {YES | NO}] 






L (no )J 





cbname 

specifies the name of an NCCF control block (starting with DSI) to be 
included. Names must be separated by commas, cbname may not be used 
with DEFER=INCLUDE. Valid control block names are those in 
Appendix C. 

EJECT 

specifies that EJECT statements are performed between each control block 
expansion and after the last expansion. 

DEFER:=ALL 

specifies that all subsequent DSICBS macro instructions are not expanded 
until a DSICBS DEFER=INCLUDE is encountered. 

DEFER=THESE 

specifies that these control block expansions are delayed until a DSICBS 
DEFER=INCLUDE is encountered. 

DEFER^INCLUDE 

specif ies that any deferred control block expansions are to be expanded at 
this point in the program. 

DEFER=NO 

specif ies that the control block or blocks are to be expanded immediately. 

PRINT- YES 

specifies that the control block expansion is to be printed. 

PRINTING 

specif ies that the control block expansion is not to be printed. 
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DSICES Macro Instruction 



The DSICES macro instruction uses the specified buffer or a parse descriptor 
block (PDB) name to locate a system command entry (D&ISCE) that corresponds 
to the verb. The routine can also use a module name to locate a particular module 
in the system command table. The routine returns the address of the DSISCE 
entry to the area specified by the SCTADDR operand. 

Name Operation Operands 

[name] DSICES SWB={ (register) | symbolic name} 

BFR={ (register) | symbolic name} 

PDB ={ (register) | symbolic name} 

MODNAME = modulename 
,SCTADDR={(register) | symbolic name} 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area that contains the address of an SWB. 

BFR 

is a register containing the address, or the symbolic name of a fullword area 
that contains the address of the buffer that contains the verb to be 
analyzed. Note: This buffer must have a properly initialized BUFHDR. 

PDB 

is a register containing the address of a completed parse descriptor block to 
be used as input or the symbolic name of a fullword area containing the 
address of that PDB. 

MODNAME 

specifies the module name to be located in the system command table. The 
modulename may be specified as the field containing the module name or as 
the module name itself. If you specify the module name itself, this name 
must be enclosed in single apostrophes. 

SCTADDR 

is a register containing the address of a user-provided fullword area, or the 
symbolic name of that area, where the address of the name or verb in the 
system command entry that corresponds to the verb or module name will be 
returned. This area is mapped by the DSISCE DSECT shown in Appendix 
C. 

The return codes for the command analysis routine are found in register 15. They 
are as follows: 

A regular command was found in the system command table; the address 

was returned. 

4 The command found can be processed as either a regular or immediate 

command; the address was returned. 
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8 An immediate command was found in the system command table; the 

address was returned. 

12 No match was found for the input verb; no address was returned. 

20 The command found is incompatible with the task type invoking the 

routine; the address was returned. 



DSIDATIM Macro Instruction 



The DSBDATIM macro instruction obtains and formats the time and date and 
places them in an output area. This macro instruction can be used, for example, 
to show the date and time on a message. 

Name Operation Operands 

[name] JIDATIM AREA={ (register) | symbolic name} 

,FORMAT= {EBCDIC | BINARY} 



AREA 

is a register containing the address of, or the symbolic name of, an area into 
which the date and time are returned. The area does not have a buffer 
header. 

FORMAT 

s reifies the format of the output. EBCDIC returns the date and time in 17 
bytes, formatted as follows: 

'mm/dd/yy hh:mm:ss' 

BINARY returns the date and time in 8 bytes as follows: 

x ' OOyydddChhmmssOC ' 

yy is the year and ddd is the Julian date, hh is hours, mm is minutes, and ss 
is seconds. If no value is specified, EBCDIC is assumed. Note: A VSE 
installation may change the date format during system definition. 



DSIDEL Macro Instruction 



The DSIDEL macro instruction is used to delete user-defined modules. The user 
specifies the name or address of the module to be deleted. 

Name Operation Operands 

[name] DSIDEL {EP=modulename | EPLOC=address} 



EP=modulename 

specifies the name of the module to be deleted. 
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EPLOC=address 

specifies the address of an 8-byte field containing the module name to be 
deleted. The module name should be left- justified and padded with blanks. 

The return codes for DSEDEL are in register 15, as follows: 

Zero Module has been deleted. 

Nonzero Attempt to delete module was unsuccessful. 

DSIDKS Macro Instruction 

The DSIDKS macro instruction obtains storage for the disk service area, initialize 
the disk service block (DSB) and the buffer header of the input buffer, locate a 
book or member specified by the file name, and read the records in that book or 
member upon request. Users must have a copy of the DSECT for DSIDSB, the 
NCCF disk services block (see Appendix C). 

For more information on DSIDKS, see "Disk Services" earlier in this chapter. 

Name Operation Operands 

[name] DSIDKS SWB={ (register) | symbolic name} 

,DSBWORD={ (register) | symbolic name} 

(conn) 

,TYPE= < FIND > ,NAME= | (register) 

( DISC ) \ symbolic name 

,TYPE=READ 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area that contains the address of an SWB. 

DSBWORD 

is a register containing the address of a user-provided fullword area or the 
symbolic name of that area. When the routine completes processing for 
TYPE=CONN, this area contains the address of the disk service area that 
has been obtained and initialized. For other disk service requests, this disk 
service area address must be returned to the service routines. 

TYPE=CONN 

specifies that the service routine is to obtain storage for and initialize the 
disk service control blocks and input buffer. The address of the disk service 
block (DSB) is returned in the area specified by the DSBWORD operand. 
The DSIDKS macro must be issued with this option before any other 
options may be chosen. 
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TYPE=FIND 

specifies that the service routine is to determine whether the book or 
member specified by the NAME operand is in the appropriate NCCF 
library and read the first record if it is found. When the routine has 
completed processing, the address of the input area containing a buffer 
header and the record is in the DSB field DSBBUFF. This option can only 
be issued after the CONN option has been issued. 

TYPE=DISC 

specifies that the service routine is to free the control blocks and input 
buffer used by the disk service routines. 

NAME 

for TYPE=CONN and TYPE=DISC, is a register containing the address 
of an 8-character user area or the symbolic name of that area. The area 
should contain the caller's NCCF definition name (left-justified and 
padded with blanks): for example, DSIPRF or DSIPARM. (See NCCF 
Installation.) For TYPE=FIND, NAME is a register containing the address 
of an 8-character user area that contains the name of the book or member 
to be read, or is the symbolic name of that user area. 

TYPE=READ 

specifies that the service routine is to read the next sequential record in the 
book or member or return an end-of-data indication if there are no more 
records in the book or member. This option can only be issued after the 
FIND option has been issued. 

The return codes from DSEDKS (types CONN and DISC) are found in register 
15. They are as follows: 

CONN Disk service area obtained and initialized successfully. 

4 NCCF definition name specified was not found in the data 

control table. 
12 No storage was available for a disk service area. 

DISC The control blocks and buffer were freed successfully. 
20 The control block identifier specified was invalid and no 
storage was freed. 

The return codes from DSIDKS (types FIND and READ) are found in register 
15. They are as follows : 



FIND 



12 



The book or member was found, and the first record was read. 

The book or member was not found in the source statement 

library or the specified library. 

The book or member was found but an I/O error occurred 

on the first read. 

The specified NCCF definition name has not been opened. 



READ The record was read successfully. 
4 An end of data was reached. 
8 An I/O error occurred during reading. 
12 The reading of this record is prohibited; an I/O error may 
have occurred, end of data may have been reached, or the 
caller did not issue TYPE=FIND first. 
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DSIFRE Macro Instruction 



The DSIFRE macro instruction frees storage that was obtained using the DSIGET 
macro instruction. Optionally, DSIFRE dequeues the storage buffer from the 
user's task vector block (TVB). Registers 2 through 12 may be used for register 
notation. DSIFRE is intended to allow the user to free the buffer from the TVB 
chain. DSIFRE macro always generates a reentrant code. 

For more information on DSIFRE, see "Getting and Freeing Storage" earlier in 
this chapter. 

Name Operation Operands 

[name] DSIFRE [{E | R}] 

,LV={n | (register)} 

,A={ (register) | symbolic name} 

[,SP= {(register) | number}] 

[,LISTA= {(register) | symbolic name}] 

[,Q={YES|NO}] 

[,TASKA={(register) | symbolic name}] 

[,EXIT={YES|NO}] 



E 



R 



specifies the element form of FREEMAIN (OS/VS only). This value must 
not be coded if Q=YES is specified. 



specifies the register form of FREEMAIN (OS/VS only). This value must 
not be coded if Q=YES is specified. 

LV 

is the number of bytes, or is a register containing the number of bytes, of 
storage to be freed. 

A 

is a register containing the address of the storage to be freed, or is the 
symbolic name of the f ullword area containing the address of the storage to 
be freed. 

SP 

specifies the subpool number (MVS only) from which the storage is to be 
freed, or specifies a register loaded with the subpool number. through 
127 are acceptable values, and is the default value. 

LISTA 

is a register containing the address of a 14-byte area in the user's dynamic 
storage or is the symbolic name of that area. The value must be on a 
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fullword boundary. DSIFRE builds a parameter list in that area to pass to 
DSIQFM, which frees the storage and dequeues it from the user's task 
vector block (TVB). This parameter is required if Q=YES is specified. 



specifies whether the storage is to be dequeued from the user's TVB. If 
Q=YES is specified, LISTA, TASKA, and EXIT must also be specified, 
and register 13 must point to a 72-byte save area. NO is the assumed 
value. 

TASKA 

is a register containing the address of the task vector block (TVB), or is the 
symbolic name of that TVB, from which the storage is dequeued. This 
operand is required if Q=YES is specified. 

EXIT 

YES specifies that the storage release request is from DSIEX01, DSIEX02, 
or an immediate command processor. NCCF has an exit queue and a 
NCCF mainline queue, and the EXIT specification prevents queuing 
problems. NO is the assumed value. EXIT is required if Q=YES is 
specified. 

The return codes for DSIFRE are in register 15: 

Storage was successfully freed (and dequeued, if specified). 

4 Storage was found on the queue and was dequeued but was not freed 

(FREEVIS or FREEMAIN failure). 



20 Storage was not found on the queue. 

DSIGET Macro Instruction 



The DSIGET macro instruction obtains storage. Optionally, DSIGET can be used 
to queue the obtained storage to the user's task vector block (TVB). Registers 2 
through 12 may be used for register notation. DSIGET is intended to allow the 
user to queue storage on the TVB chain so that, if abnormal termination occurs, 
NCCF can free the storage at logoff. 

For more information on DSIGET, see "Getting and Freeing Storage" earlier in 
this chapter. 

Name Operation Operands 

[name] DSIGET LV={n | (register)} 

,A={ (register) | symbolic name} 

[,SP={ (register) | symbolic name}] 

[,REENT={YES|NO}] 

r,BNDRY={PAGE | DBLWD }] 

[,LISTA={ (register) | symbolic name}] 

r,Q={YES|NO}] 

[,TASKA— {(register) j symbolic name}} 

[,EXTT«{YES|NO}] 
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LV 



is the number of bytes, or is a register containing the number of bytes, of 
storage to be obtained. 



is a register containing the address of the fullword, or is the symbolic name 
of the fullword, into which the address of the obtained storage is returned. 



SP 



specifies the subpool number (MVS only) from which the storage is to be 
obtained, or specifies a register loaded with the subpool number. through 
127 are acceptable values and is the default value. 

REENT 

For OS/VS, REENT=YES must be coded. For VSE, this operand is not 
required, and is ignored if present. REENT specifies whether the reentrant 
form of DSIGET is used. 

BNDRY=PAGE 

specifies that the obtained storage is to be aligned on a page boundary. 

BNDRY=DBLWD 

specifies that the obtained storage is to be aligned on a doubleword 
boundary. 

LISTA 

is a register containing the address of a 14-byte area in the user's dynamic 
storage, or is the symbolic name of that area. The value must be on a 
fullword boundary. DSIGET builds a parameter list in that area to pass to 
DSIQGM, which obtains the storage and queues it to the user's task vector 
block (TVB). This parameter is required if Q=YES and REENT=YES are 
specified. 



specifies whether the obtained storage is to be queued to the user's TVB. If 
Q=YES is specified, REENT=YES, LISTA, TASKA, and EXIT must also 
be specified, and register 13 must point to a 72-byte save area. For 
OS/VS, REENT=YES must be specified if Q=YES is coded. NO is the 
assumed value. 

TASKA 

is a register containing the address of the task vector block (TVB), or is the 
symbolic name of the TVB to which the obtained storage is queued. This 
operand is required if Q=YES is specified. 

EXIT 

YES specifies that the storage request is from DSIEX01 , DSIEX02, or an 
immediate command processor and Q=YES was specified. NCCF has an 
exit queue and an NCCF mainline queue, and the EXIT specification 
prevents queuing problems. NO is the assumed value. 
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The return codes for DSIGET are in register 15: 

Storage was successfully obtained. 

4 No storage was obtained. 

8 GETVIS or GETMAIN was issued by a program running in real mode. 

12 No storage was available, or the length specified was less than zero, or no 

continuous area of storage of the size requested was available. 



DS1KVS Macro Instruction 



The DSIKVS macro instruction is used in a command processor to determine if a 
particular keyword or a particular keyword and its scope value are in the 
operator's command scope. A return code is shown in register 15 indicating 
whether the operator who issued the command has been authorized to issue it 
with the particular keyword or value or both. 

Name Operation Operands 

[name] DSIKVS S WB={ (register ) | symbolic name} 

j CMD={ (register) | symbolic name} ) 

\ SCTADDR={ (register) | symbolic name} ) 
,KEYWORD«{ (register) | symbolic name} 
[,VALUE={ (register) | symbolic name}] 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area that contains the address of an SWB. 

CMD 

is a register containing the address of an 8-byte field or the symbolic name 
of an 8-byte field that contains the command name left- justified and 
padded with blanks. Either CMD or SCTADDR must be specified. 

SCTADDR 

is a register containing the address of a fullword field or the symbolic name 
of a fullword field that contains the SCT entry address for the command 
that is to be checked. Either CMD or SCTADDR must be specified. 

KEYWORD 

is a register containing the address of an 8-byte field or the symbolic name 
of an 8-byte field that contains the keyword left-justified and padded with 
blanks. This operand is required. 

VALUE 

is a register containing the address of an 8-byte field or the symbolic name 
of an 8-byte field that contains the value left-justified and padded with 
blanks. VALUE is an optional keyword that is specified when VALCLASS 
checking is desired. 

Note: If both KEYWORD and VALUE are specified, KEYWORD is scope 
checked before VALUE. If KEYWORD results in a nonzero return code, 
VALUE will not be checked. 
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The return codes for the KEYCLASS and VALCLASS lookup service routine are 
found in register 15. They are as follows: 

The specified keyword and value are in the operator's scope of commands. 

4 The specified keyword was not in this operator's scope of commands. 

8 The specified value was not in this operator's scope of commands. 

12 A required parameter was missing or an invalid parameter was specified in 
the macro instruction. 



16 No storage is available. 



DSILCS Macro Instruction 



The DSILCS macro instruction: 

Gets a service work block (SWB) for the caller and places the address of that 
SWB in a fullword area specified by the CBADDR operand. 

Frees an SWB after use. 

Gets a command work block (CWB) for the caller and places the address of 
that CWB in a fullword area specified by the CBADDR operand. 

Frees a CWB after use. 

Locates a task vector block (TVB) by operator identification. 

Locates a task vector block (TVB) by LU name. 

Locates (from a specified starting position) the next active TVB for an 
NCCF-NCCF task, a hard-copy task, an operator station task, or an optional 
task. 

• Locates a task vector block for an operator designated as a receiver of 
authorization messages by the AUTH statement of a profile definition. 



For more information on DSILCS, see "Getting, Freeing, and Locating a Control 
Block" earlier in this chapter. 



Name 



Operation Operands 



[name] DSILCS CBADDR={ (register) | symbolic name} 
/ CWB={GET|FREE} 
SWB={GET | FREE} 
TVB ={ (register) | symbolic name} 
( LU= {(register) | symbolic name} 
) OPID={ (register) | symbolic name} 



<^ 



( AUTHRCV=YES 

!OST) 
HCTf 
NNT( 
opt) 
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CBADDR 

is a register containing the address of user-provided fullword area or the 
symbolic name of that area. The specified SWB, CWB, or TVB address is 
returned to this area (for the GET option). 

CWB=GET 

specifies that the caller needs a command work block. The address of the 
CWB is returned to the area specified by the CBADDR operand. The user 
must initialize the CWBTIB field with the address of his TIB. 

CWB=FREE 

specifies that the caller wishes to free the command work block whose 
address is found in the area specified by the CBADDR operand. 

SWB=GET 

specifies that the caller needs a service work block. The address of an SWB 
is returned to the area specified by the CBADDR operand. The user must 
initialize the SWBTIB field with the address of his TIB. 

SWB=FREE 

specifies that the caller wishes to free the service work block whose address 
is found in the area specified by the CBADDR operand. 

TVB 

is a register containing the address of the task vector block where the 
routine begins the search for the TVB specified by LU, OPID, NEXT, or 
AUTHRCV. The symbolic name of an area containing the address of this 
TVB may also be supplied. The address of the beginning of this TVB chain 
is found in the main vector table, DSIMVT. The TVB address found is 
placed in the area specified by CBADDR after the routine has completed 
processing. Note: The routine searches from the address specified to the end 
of the TVB chain; it does not loop to the beginning of the TVB chain. 

LU 

is a register containing the address of an 8-byte LU name field or the 
symbolic name of the 8-byte LU name field. This name is used to find a 
TVB with a matching LU name. 

OPID 

is a register containing the address of an 8-byte operator identification field 
or the symbolic name of the 8-byte operator identification field. This name 
is used to find a TVB with a matching operator identification. 

AUTHRCV 

specifies that the routine is to search for the first TVB for an operator 
authorized to receive messages related to successful and unsuccessful 
logons and lost station messages. (See the discussions of the AUTH 
statement and of unsolicited message routing in NCCF Installation. ) 
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NEXT=OST 

specifies that the TVB associated with the next active operator station task 
is to be located. 

NEXT=HCT 

specifies that the TVB associated with the next active hard-copy log task is 
to be located. 

NEXT=NNT 

specifies that the TVB associated with the next active NCCF-to-NCCF 
task is to be located. 

NEXT=OPT 

specifies that the TVB associated with the next optional task is to be 
located. 

Return codes for the control block location routine are found in register 15. They 
are as follows: 

Successful; the address was returned, or the control block was freed. 

4 No TVBs of the type specified were found. 

8 End of the TVB chain, if TVB was specified. 

8 No storage was available, if SWB=GET or CWB=GET was specified. 

8 Defective control block, if SWB=FREE or CWB=FREE was specified. 



DSILOD Macro Instruction 



The DSILOD macro instruction is used to load user-defined modules. The user 
specifies the name or address of the module to be loaded and the address of a 
BLDL list. 

Name Operation Operands 

[name] DSILOD (EP=modulename} ,LISTA= f (register) ) 

( EPLOC= address ) \ symbolic name f 

[,DCB=address] 



EP=modulename 

specifies the name of the module to be loaded. 

EPLOC=address 

specifies the address of an 8-byte field containing the modulename to be 
loaded. The modulename should be left-justified and padded with blanks. 

LISTA 

is a register containing the address of a 62-byte area in the user's dynamic 
storage or is the symbolic name of that area. The value must be on a 
fullword boundary. DSILOD uses this area as a BLDL list. 
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DCB 



optionally specif ies the address of the DCB for a partitioned data set to be 
searched for the module. 



The return codes for DSILOD are in register 15, as follows: 

Zero Module has been loaded. 

Nonzero BLDL could not locate the module. 

If the module is successfully loaded, register contains the load point address of 
the module. Register 1 contains the authority code in the high-order byte and the 
module length in the low-order three bytes. 



DS1MBS Macro Instruction 



The DSIMBS macro instruction can be used to determine the size of the buffer 
required to accomodate the message to be edited. The routine can then be used to 
edit an NGCF or user-supplied message into a buffer provided by the caller. 
Callers may supply variable fields to be inserted into NCCF messages or supply 
unique messages of their own with varying positional fields. A total of nine 
positional parameters may be replaced with user substitutions. DSIMBS may also 
be used to pass to NCCF the address of a message table generated with the 
DSIMDS macro instruction. 



Name 



Operation Operands 



[name] DSIMBS SWB= 



,MID= 



{(register) | symbolic name} 

nnn \ 

(register) f 

symbolic name ( 
*equatename ) 

P 1 = (text,lngth[,padlng,side,f ill]) 



_ ,P9= (text,lngth[,padlng,side,fill]) _ 
t ,MSGA= (pdbladdr,pdb2addr) 
,BFR= {(register) | symbolic name} 
,MSGSIZE={ (register) | symbolic name} 
[,MSGTBL= {(register) | symbolic name}] 



SWB 



is a register containing the address of a service work block (SWB) or the 
symbolic name of a user area that contains the address an SWB. 
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MID 

specifies the identification of the NCCF message that is to be edited for the 
caller. The message may be specified by the message number (nnn), in a 
register, in a user area specified by symbolic name, or by the equate name 
preceded by an asterisk. (For example, if MSG999 EQU 999, you could 
specify MK>=*MSG999.) 

MSGA=(pdbladdr,pdb2addr) 

pdbladdr is a register containing the address of the parse descriptor block 
(PDB) or the symbolic name of a fullword area that contains the address of 
the PDB that contains the addresses and lengths of the variable fields to be 
substituted into the message text, pdbladdr is a register containing the 
address of the parse descriptor block (PDB) or the symbolic name of a 
fullword area that contains the address of the PDB that contains the 
message skeleton to be edited. This is not an NCCF message; it is supplied 
by the user. 

Because the variable field information is contained in pdbladdr, the P1...P9 
operands cannot be used if MSGA is specified. 

BFR 

is a register containing the address of the user area where the edited 
message is to be returned or the symbolic name of a fullword area that 
contains the address of the user area. Note: This buffer must have a 
properly initialized BUFHDR, except for the HDRMLENG field, which is 
initialized by DSIMBS. 

MSGSIZE 

is a register containing the address of a user-provided fullword area or the 
symbolic name of that area. This operand should only be used to request 
the service routine to determine the size of the buffer needed for the 
message to be edited. When the routine has completed processing, the 
required size is returned in this area. 

P1...P9 

are used only in combination with the MID operand. They specify the 
positional fields in an NCCF message that are to be replaced by 
user-supplied text. The first two values, text and Ingth must be specified; 
the others are optional. 

text 

is a register containing the address of the variable text, or the symbolic 
name of the area that contains the text that is to be substituted into the 
edited NCCF message. 

Ingth 

is the length of the variable text that is to be substituted into the edited 
NCCF message. The maximum length is 255 characters specified in 
character format or a binary value in a register or in a user area specified by 
symbolic name. 
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padlng 

is the total length of the variable field to be padded with fill characters. 
This length must be equal to or less than the length specified by the Ingth 
operand. The maximum size is 255 characters specified in character format 
or a binary value in a register or in a user area specified by symbolic name. 

side 

may be specified as L for left-fill or R for right-fill. The default is right-fill. 

fill 

is the character to be used as the fill character for the area to be padded. 
The default fill character is a blank (hex 40). 

MSGTBL 

is a register containing the address of a user-defined message table or the 
symbolic name of a fullword that contains the address of the message table. 
The table must be generated using the DSEMDS macro instruction. 

Return codes for the DSIMBM macro instruction are found in register 15. They 
are as follows: 

Successful: (1) The edited message is in the provided buffer and the 

length of the message is stored in the message length field of the buffer 
header, or (2) the size of the message buffer required has been calculated 
and stored in the area specified by MSGSIZE. 

4 The edited message is in the provided buffer, but the message skeleton 

contained a parameter for which the caller did not supply text. The 
message contains the characters &n where n may be from 1 to 9. 

8 Unsuccessful: The buffer overflowed, and the message has been 

truncated. The size of the truncated message has been stored in the 
message length field of the buffer header. 

12 The message number specified could not be found in the NCCF message 

module, DSIMDM. NCCF message DSI000A is edited into the caller's 
buffer. If the buffer size only was requested, the size of message 
DSI000A is returned. 

1 6 The caller did not supply a buffer address. 

20 Combined conditions 4 and 8 occurred. 

24 Combined conditions 8 and 12 occurred. 

28 A validity check failed on the user message definition module. The 

address passed in the MSGTBL operand does not point to a message 
definition module that was created with the DSIMDS macro instruction. 
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DSIMDS Macro Instruction 



Format 1: Start Message 



Format 2: Message Text 



The DSIMDS macro instruction generates an NCCF message definition module 
(DSIMDM) that contains all messages issued by NCCF. It can also be used to 
generate a user-defined message module to contain messages issued by the user in 
exit routines, command processors, and command lists. After a message 
definition module has been defined, it must be link-edited into the NCCF load 
library. 

Three forms of the DSIMDS macro instruction are required to generate a message 
definition module. These forms are described below and must be coded in the 
sequence shown. 



Name 



Operation Operands 



[name] DSIMDS prefix,TYPE= START 



name 



is required to start the message definition module, name becomes the 
CSECT name for the module. 

Note: DSIMDM must be specified for name if the NCCF message 
definition module is being defined or modified. 



prefix 

is a required positional operand that becomes the prefix for the messages in 
the module, prefix must be DSI for the NCCF message module. 

TYPE=START 

specifies the beginning of generation for the message definition module. 



Name 



Operation Operands 



[name] DSIMDS xxx/message text &&n'c,TYPE={A 1 1} 



XXX 



is the message number to be given to the message. It may be any number 
from 001 through 899; for user-originated messages, numbers 900 through 
999 should be used. 
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Format 3: End Message 



Note: When coding your own message CSECT, you must code a message 
000 to be issued when an invalid message number is specified. The 
user-coded message 000 should have one insert containing the invalid 
message number. You may want to use wording similar to NCCF's message 
DSI000I: 

DSI000I NCCF MESSAGE xxx ISSUED BUT DOES 
NOT EXIST - CALL IGNORED. 

message text 

is the text of the message to be added or changed. 

&&n 

signifies that variable information is to be substituted at this position in the 
message. &&1 through &&9 may be specified. 

TYPE=A 

specifies that the message is to be an action message (one for which an 
appropriate action must be taken). 

TYPE=I 

specifies that the message is for information only. No specific action need 
be taken. 



Name Operation Operands 

DSIMDS TYPE=END 



TYPE=END 

specifies the end of the message defintion module. This is the last 
statement specified. 



DSIMQS Macro Instruction 



The DSIMQS macro instruction queues a user-supplied message to the message 
queue of a task's task vector block (TVB). This message appears on the 
operator's screen or hard-copy log, depending upon which identification is 
specified. Buffers that are formatted as internal function requests (IFRs) are not 
displayed; they cause the receiving subtask to take the action requested by the 
IFR. 
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For more information on DSIMQS, see "Message Queuing" earlier in this chapter. 

Name Operation Operands 

[name] DSIMQS SWB= {(register) | symbolic name} 

,BFR={ (register) | symbolic name} 

( TASKED ={ (register) | symbolic name} ) 

\ AUTHRCV={YES | NO} j 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area that contains the address of an SWB. 

BFR 

is a register containing the address of a buffer or the symbolic name of a 
fullword area containing the address of a buffer. Note: This buffer must 
have a properly initialized BUFHDR. 

TASKID 

is a register containing the address of a user-provided 8-byte area or the 
symbolic name of that area. The area should contain the 8-character 
operator identification of the task for which the message is to be queued. If 
TASKID is specified, AUTHRCV should not be specified. 

AUTHRCV 

specifies that the first operator designated as the receiver of authorization 
messages (by the AUTH statement of profile definition) is to receive the 
message. If no operator is authorized, the message is queued for the system 
console. (See the discussions of the AUTH statement and of unsolicited 
message routing in NCCF Installation. ) 

The return codes for the message queuing service routine are found in register 15. 
They are as follows: 

Successful completion. 

4 The format of the buffer that was passed was invalid. 

8 The task identification that was passed could not be found. 

12 A buffer could not be obtained. 
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DSIOIS Macro Instruction 



The DSIOIS macro instruction locates the specified operator identification in the 
DSIOIT table and returns the relative position of the entry to a user-provided 
fullword area. 



Name 



Operation Operands 



[name] DSIOIS 



SWB= {(register) | symbolic name} 
,OPID= {(register) | symbolic name} 
,OITPOS= {(register) | symbolic name} 



SWB 



is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area that contains the address of an SWB. 

OPED 

is a register containing the address of an 8-byte (left-justified) operator 
identification field or the symbolic name of that field. 

OITPOS 

is a register containing the address of a fullword area or the symbolic name 
of that area. When the routine has located the specified operator 
identification in DSIOIT, that entry's relative position is returned to this 
i Uword area. For example, the third entry results in a fullword 3 being 
returned. 

The return codes for the DSIOIM routine are found in register 15. They are as 
follows: 

Successful; the position of the entry has been returned. 

4 Unsuccessful; the entry could not be found in DSIOIT. 



DSIPAS Macro Instruction 



The DSIPAS macro instruction receives a command operand as input and 
searches the system command table (DSISCT) to determine whether the operand 
is an alias for an NCCF operand. If it is an alias, the regular NCCF value is 
returned to a user-provided area. If it is not an alias, the input value itself is 
returned to the user area. If the value is invalid, blanks are returned to the input 
area. 



Name 



Operation Operands 



[name] DSB? AS SWB= {(register) [symbolic name} 

,PDB= {(pdbname,entrynumber)} 
,OUT= {(register) | symbolic name} 
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SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area that contains the address of an SWB. 

PDB=pdbname 

is a register containing the address of a fullword area or is the symbolic 
name of a fullword area that contains the address of that area. The area 
should contain the name of the parse descriptor block to be used as input. 

PDB = entrynumber 

(1) is the number of a register containing the entry number; or (2) is the 
symbolic name of an area containing the entry number of the field in the 
parse descriptor block that is to be examined; or (3) is an entry number in 
character form specified in single quotation marks. For example, the third 
entry is specified as '3'. 

OUT 

is a register containing the address of a user-provided 8-byte area to which 
the NCCF equivalent of the input operand is returned if found, or the 
symbolic name of that user area. 

The return codes for the parameter alias service routine are found in register 15. 
They are as follows: 

A regular NCCF opreand value was returned. 

4 No equivalent was found; the same operand is returned. 

8 Invalid operand; blanks are returned. 



DSIPOS Macro Instruction 



The DSIPOS macro instruction indicates completion of an event by posting an 
event control block (ECB). 

Name Operation Operands 

[name] DSIPOS ecbaddress[,compcode] 



ecbaddress 

is a register from 1 through 12 containing the address of the ECB (an 
aligned fullword), or the symbolic name of the ECB. If a register is 
specified, it must be coded in parentheses. 

compcode 

is the value of the completion code to be placed in the ECB (0 through 
16,777,215), or a register (0, 2 through 12) containing the value. If a 
register is specified, it must be coded in parentheses. If no value is 
specified, is assumed. 

Note: These operands are positional and must be specified in the indicated order. 
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DSIPRS Macro Instruction 



The DSIPRS macro instruction uses an input buffer with an initialized buffer 
header to determine the size of the parse table that must be built to accommodate 
the data contained in the buffer. The routine may then be invoked again to build 
the parse table in a user-provided area. DSIPRS then delimits the segments of the 
data contained in the buffer and puts the number of segments found and the 
indicators to these segments in the table. See the description of the parse 
descriptor block (PDB) later in this chapter. 

The following delimiters are recognized: 

b 



Name 



Operation Operands 



[name] DSIPRS 



SWB= {(register) | symbolic name} 

,BFR= {(register) | symbolic name} 

(PDBSIZE= {(register) | symbolic name} 

(PDB= {(register) | symbolic name} 

[,FIRST= {YES | NO } ] 
[,DELIM= CD1', 'D2',...'Dn') ] 



SWB 



is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area that contains the address of an SWB. 



BFR 



is a register containing the address of the buffer that is to be used for input 
or the symbolic name of a fullword area that contains the address of that 
buffer. Note: This buffer must have a properly initialized BUFHDR. 

PDBSIZE 

is a register containing the address of a fullword area, or the symbolic name 
of that area, to which the size of the parse table is to be returned. 
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PDB 

is a register containing the address of a fullword area or the symbolic name 
of that area, where the parse table is to be built. The parse table must 
include a user-initialized DSICBH header (see Appendix C) containing 
control block identification and length before the data can be parsed. 

FIRST 

is an optional parameter that indicates whether the first word of the buffer 
can be delimited only by a blank (YES) or by any delimiter (NO). 

DELIM 

is an optional parameter that allows the user to specify delimiters to be used 
instead of the NCCF defaults. NCCF default delimiters are blank, comma, 
period, equal sign. Blank is always considered a delimiter, ever if the user 
specifies his own delimiters. 

The return codes for the parsing service routine are found in register 15. They are 
as follows: 

The correct size of the table was found or the command was parsed 

successfully and the table was built. 

4 The command was parsed, but there was no data in the buffer received 

and only the buffer address and number of entries (0) in the table could 
be returned. 

8 The parse table size was too small for the command; a partial table was 

built, and the number of entries was set to the number that the table 
could hold. The size should be increased. 

12 Unpaired apostrophes were found. 

100 No PDB was passed. 



DSIPSS Macro Instruction 



The DSIPSS macro instruction invokes the appropriate presentation service 
routine, DSIPS1-DSIPS15. These modules are an interface between NCCF and 
various devices. They control the screen formats, organize the data into a specific 
form for each device, and send the data. 

For more information on the DSIPSS macro instruction, see "Presentation 
Services" earlier in this chapter. 
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Name 



Operation Operands 



[name] DSIPSS 



SWB= {(register) | symbolic name} 
[,APPLID= {(register) | symbolic name}] 

OUTPUT 
IMMED 
XSEND 
SCRSIZE 
WINDOW 
,TYPE= \ PANEL 

ASYPANEL 
CANCEL 
PSSWAIT 
TESTWAIT 

[,ECBLIST= {(register) | symbolic name}] 

[,BFR= {(register) | symbolic name}] 



,OPTIONS= 



MSG 

SEG 

FIRST 

MIDDLE 

LAST 

ONLY 



[,SIZE= {(register) | symbolic name}] 
[,PANEL= {(register) | symbolic name}] 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a user area that contains the address of an SWB. This 
operand is required. 

APPLID 

is a register containing the address of an 8-byte area, or the symbolic name 
of an 8-byte area, that contains the name (left- justified and padded with 
blanks) of the application program to which the data is to be sent. This 
name should be the same as the name specified on the START command 
when a session is started. APPLID is specified only when TYPE=XSEND. 

TYPE=OUTPUT 

specifies that the routine is to send a message to the operator's terminal. 
This option should not be used by immediate command processors or user 
exit routines DSIEX01, DSIEX02, or DSIEX03. The maximum message 
length allowed (before truncation occurs) is 37,767 characters. Upon 
completion of the macro, the length of the text in the HDRMLENG field of 
the BUFHDR is set to the length of the data after any trailing blanks have 
been truncated. 
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TYPE=IMMED 

specifies that the routine is to send a message to the operator station's 
immediate message area. The maximum message length allowed before 
truncation occurs is 71 characters. This option can be used only with 
immediate command processors or in the DSIEX01 exit routine. When this 
operand is specified, no message header information is sent to the display 
screen. TYPE=IMMED terminates full-screen mode and causes 
subsequent terminal input to be treated as commands. 

TYPE=XSEND 

specifies that the routine is to send data to another NCCF with which a 
session exists. The maximum length allowed before truncation occurs is 
256 characters. 

TYPE=SCRSIZE 

specifies that the routine is to return the screen size in row-column fonnat. 

TYPE=WINDOW 

requests information on the output area size of the standard NCCF screen. 
This option is valid only from an operator station task (OST). (Under any 
other task, the request is considered null; register 15 contains a return code 
of zero, but no function is performed.) Three output area sizes are 
returned: 

• Minimum 

• Current 

• Maximum 

The minimum window size may be used to produce screens that are 
independent of the current window size. The current window shows what 
screen size is currently in effect. The maximum window size is useful for 
calculating the maximum storage needed to produce full-line panels. 

Note: TYPE=WINDOW applies only to command processors that use 
DSIPSS in standard NCCF mode. In full-line mode, the screen is 
automatically changed to single line input. When standard NCCF mode is 
reentered, the input area is set to the size indicated by the INPUT 
command. 

TYPE=PANEL 

specifies that the issuing routine is to format the screen using synchronous 
full-screen mode, as opposed to the standard NCCF mode. This option is 
allowed only from an operator station task (OST). When requesting 
output, the issuer will build a 3270 data stream; when requesting input, the 
issuer will receive the untranslated 3270 data stream. 

The first operator input received for TYPE=PANEL is used to satisfy a 
first panel request for input. NCCF treats subsequent terminal input as 
commands. The operator should enter one request and then wait for a new 
screen panel before entering data. 
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For more information on synchronous full-screen mode, see the section 
titled "Full-Screen Command Processor Considerations" in Chapter 4. For 
more information on the 3270 data stream, refer to the appropriate 3270 
manual. 

TYPE=ASYPANEL 

specifies that the issuing routine is to format the screen using asynchronous 
full-screen processing through the posting of event control blocks (ECBs). 

While the asynchronous full-screen command processor is running, input to 
the NCCF terminal is treated as input to the command processor and not as 
a direct input to NCCF. To allow the next input to be treated as a 
command, issue TYPE=OUTPUT or TYPE=IMMED. 

For more information on asynchronous full-screen mode, see the section 
titled "Full-Screen Command Processor Considerations" in Chapter 4. 
TYPE=ASYPANEL is allowed only from an operator station task (OST). 

TYPE=CANCEL 

cancels pending asynchronous full-screen input after the receive from the 
terminal has been issued. This option is used when changing the 
characteristics of the asynchronous full-screen processor, such as the ECB 
address or the panel address. TYPE= CANCEL is allowed only from an 
operator station task. This option can be invoked whether or not a DSIPSS 
TYPE=ASYPANEL is active or the input from TYPE=ASYPANEL has 
been posted as complete. 

After TYPE= CANCEL is issued, no further input is received from the 
terminal until TYPE=OUTPUT, TYPE=IMMED, TYPE=PANEL or 
TYPE=ASYPANEL is issued. 

TYPE=PSSWAIT 

specifies that a command is to wait for both a list of its own events and a 
list of NCCF events that should be allowed to interrupt the command 
events. TYPE=PSSWAIT is allowed only from an operator station task. 
This option should be used with TYPE=ASYPANEL. 

Note: Use the DSIWAT macro instruction if you do not want the 
command to wait for the completion of NCCF events. 

TYPE=TESTWAIT 

allows a command processor to test whether an NCCF event has occurred 
that should interrupt the asynchronous full-screen command processor. 
TYPE=TESTWAIT is allowed only from an operator station task. This 
option can be used before a DSIPSS TYPE=ASYPANEL is issued to 
determine if the asynchronous full-screen panel input/output should be 
attempted. If DSIPSS TYPE=PSSWAIT is used to wait for NCCF events, 
this option can prevent unnecessary screen input/output by allowing testing 
before panel input/output is requested. 

ECBLIST 

for TYPE=PSSWAIT is a register containing the address of an ECB list or 
the symbolic name of an ECB list. An ECB list is a list of addresses of 
user-defined event control blocks that will be copied and combined with an 
NCCF ECB list. NCCF waits on this combined list; when one of the 
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events associated with this list is posted, control is returned to the next 
sequential instruction. The input ECB list is made up of fullword ECB 
addresses. The last address in the list must have the first bit set on to 
specify that this is the last entry. 



BFR 



is a register containing the address of a user-provided buffer or the 
symbolic name of a fullword area that contains the address of the buffer. 
This buffer should contain the data that is to be processed. Note: This 
buffer must have a properly initialized BUFHDR. 

OPTTONS=MSG 

specifies that the data to be sent is a complete message. 

OPTIONS=SEG 

specifies that the data to be sent is only a segment of a message. When this 
operand is specified, no message header information is sent to the screen. 

OPTIONS=FIRST 

specifies that the data to be sent is to start at the top of the screen, with full 
80-byte line width. 

OPTIONS=MIDDLE 

specifies that the data to be sent is a continuation line. 

OPTIONS=LAST 

specifies the end of a screen of data. The screen is locked until the operator 
signals for the screen to be refreshed. 

OPTIONS=ONLY 

specifies that one full line is to be written at the top of the screen with the 
rest of the screen left blank. 

Note: For OPTIONS FIRST, MIDDLE, LAST, or ONLY, a command processor 
that is invoked by an operator station task is always out of full line mode. 



SIZE 



for TYPE=SCRSIZE is a register containing the address of a user-provided 
4-byte area or the symbolic name of a fullword area that contains the 
address of a 4-byte area to contain the size of the display screen, in 
row-column format. For example, a 1920-character screen is defined as 
X'00180050', since the screen is 24 rows (X'0018') by 80 characters 
(X'0050'). 

For TYPE=WINDOW, SIZE is a register containing the address of a 
12-byte area or the symbolic name of a 12-byte area in which the window 
sizes are returned in binary. The format of the area is shown below: 



Minimum 
Window Size 


Current 
Window Size 


Maximum 
Window Size 


Rows 


Columns 


Rows 


Columns 


Rows 


Columns 
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PANEL 

for TYPE=PANEL is a register containing the address of a 16-byte 
parameter list or the symbolic name of a fullword area that contains the 
address of a 16-byte parameter list. This parameter list contains a 
command verb, an output area address, an output length, and an input 
length. The parameter list is formatted as follows: 



Command Verb 


Output Area 


Output 
Length 


Input 
Length 



10 



If full-screen output is requested, the output area contains the address of a 
3270 data stream containing a 3270 command, WCC, and data. The 
ou.^ut length field indicates the length in bytes of the 3270 data stream. 
The command verb and the input length fields are not used. 

To read full-screen input from a terminal, the command verb area contains 
a valid command to be executed when input is available. The input length 
field indicates the maximum input data to be expected by NCCF. The 
command is executed with the 3270 data. Because NCCF does not 
translate or modify the 3270 data, the parse descriptor block (DSIPDB) 
may not contain meaningful data. No input buffer is passed to NCCF; 
NCCF supplies the input buffer. 

Note: A sample full-screen command processor is shown in Appendix F. 

For TYPE=ASYPANEL, PANEL is a register containing the address of a 
20-byte parameter list or the symbolic name of a 20-byte parameter list. The 
parameter list is formatted as follows: 



ECB 
Address 


Output 
Data Stream 
Address 


User Input 
Area Address 


Output 
Length 


Input 

Area 

Length 


Data 

Length 

Address 



10 



14 



If asynchronous full-screen output is requested, the output data stream address 
field contains the address of a 3270 data stream including a 3270 command, 
WCC, and orders to be written to the terminal. The command must be coded 
using remote EBCDIC values. The output length field indicates the length, in 
bytes, of the 3270 data stream (32,767 bytes maximum). The ECB address, input 
area length, user input area address, and data length address fields are not used if 
only output is requested. 

To read asynchronous full-screen input from a terminal, the ECB address area 
contains the address of an event control block to be posted when the 
asynchronous input is received. The user input area address contains the address 
of a user area into which the address contains the address of a user area into 
which the full-screen panel data is read. (If the length of the data being read is 
greater than the user input area, the data will be truncated.) The input area 
length field indicates the length of the input data area in bytes (32,767 bytes 
maximum). The data length address field contains the address of a half word field 
that is set to the amount of data actually read when the ECB is posted. 
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Note: For more information on full-screen processing, see "Full-Screen 
Command Processor Considerations" in Chapter 4. For more information on the 
3270 data stream, refer to the appropriate 3270 publications. 

The return codes for the presentation service routine are found in register 15. 
They are as follows: 

Successful completion. If running under a full-screen processor, see the 

section titled "DSEPSS Output from a Full-Screen Command Processor" 
for more information. For TYPE-PSSWAIT, a user ECB has been 
posted. Check the ECB list to determine which event has completed. 

4 For TYPE-XSEND, no RPL was found and no data was sent. 

8 Parameter error. There is an error in the formatting of the message 

buffer header. For TYPE=XSEND, the session is not active and no data 
is sent. For TYPE=PANEL, the input or output length is invalid, that is, 
greater than 32,767 bytes (X'7FFF). For TYPE-ASYPANEL, the 
parameter list is inconsistent. If the output buffer is specified, its length 
must also be specified. If the input ECB is specified, the input area 
address, input area length, and the data length address of the returned 
length must be specified. 

12 There is not enough storage available in NCCF to complete the request. 

No output will be sent, and the input command processor will not be 
scheduled. 

1 6 DSIPSS TYPE=OUTPUT was issued for an immediate command or in 

an IRB system exit routine. Use DSIPSS TYPE-IMMED or DSIMQS 
instead. Too many OPTIONS=MDDDLE were specified, and the screen 
is full. This OPTIONS=MIDDLE is treated as an OPTIONS=LAST. If 
another MIDDLE is issued, it will be treated as an OPTIONS=FIRST. 
The screen will wrap around, and return code 24 will be issued. 

20 No terminal session exists. For TYPE=sPANEL, the panel request came 

from a task other than an operator station task (OST). No output will be 
sent, and the input command processor will not be scheduled. For 
TYPE=ASYPANEL, the panel request came from a task other than an 
OST. No input will be received. For TYPE= CANCEL, the panel 
request came from a task other than an OST. 

24 OPTIONS=FIRST, MIDDLE, LAST, or ONLY was specified in the 

incorrect order. 

28 For OPTIONS=FIRST, MIDDLE, LAST, or ONLY, user exit DSIEX02 

specified that full-line output was to be deleted. The output was not 
written to the screen. Note that this return code does not indicate a 
severe error. 

32 For TYPE=PANEL, no input command processor is scheduled. The 

operator requested escape to NCCF mode by selecting option 1 when 
prompted by message DSI817A. See the section titled "DSIPSS Return 
Codes from a Full-Screen Command Processor" for more information. 
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36 For TYPE=PANEL or TYPE=ASYPANEL, a temporary error 

occurred. The contents of the screen have been modified. Reformat the 
screen using an Erase/Write or Erase/ Write Alternate 3270 command. 
Then retry the request. 

40 For TYPE-PANEL, ASYPANEL, or CANCEL a permanent 

input/output error occcured. Do not retry the request. No output will 
be sent, and no input processor will be scheduled. For 
TYPE=ASYPANEL, no input will be received. For TYPE=CANCEL, 
NCCF is unable to restart normal terminal activity. 

44 For TYPE=PANEL, no input is scheduled, because the operator 

requested reset by selecting option 3 when prompted by message 
DSI817A. See the section titled "DSIPSS Output from a Full-Screen 
Command Processor" for more information. 

48 For TYPE- ASYPANEL, no input/output is scheduled because the 

command processor issued a second DSIPSS TYPE= ASYPANEL before 
the previous request had completed. 

56 For TYPE=PSSWAIT or TYPE=TESTWAIT, at least one NCCF ECB 

was posted. 

The ECB post codes for PSS TYPE= ASYPANEL are found in the event control 
block if one was specified. They are as follows: 

Successful completion. The requested data is available. 

12 There is not enough storage available in NCCF to complete the request. 

The output data was sent, but the input data is not available. 

36 A temporary error occurred during a full-screen read. Retry the request. 

The output data was sent, but the input data is not available. 

40 A permanent error occurred during a full-screen read. Do not retry the 

request. The output data was sent, but the input data is not available. 

52 The requested input was canceled using DSIPSS TYPE= CANCEL. You 

should not retry the request immediately. The output data was sent, but 
the input data is not available. 



DS1RDS Macro Instruction (ACF/VTAM Only) 



The DSIRDS macro instruction locates the specified resource in the authorization 
and resource table, DSIART, and returns the address of the DSIART entry to a 
user-provided f ullword area. 

For more information on DSIRDS, see "Resource Location" earlier in this 
chapter. 
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Name Operation Operands 



[name] DSIRDS SWB= {(register) | symbolic name} 

,LUNAME= {(register) | symbolic name} 
,ARTPOS= {(register) | symbolic name} 
[,STATUS= {ACT | INACT}] 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area that contains the address of an SWB. 

LUNAME 

is a register containing the address of a user-provided area or the symbolic 
name of that area. The area should contain the 8-byte (left-justified) 
LUNAME that is to be located in the authorization and resource table, 
DSIART. 

ARTPOS 

is a register containing the address of a fullword area or the symbolic name 
of that area. When the routine has located the specified entry in DSIART, 
that entry's address in the table is returned to this area. 

STATUS 

specifies whether the LUNAME entry in DSIART is to be marked as active 
(ACT) or inactive (INACT). 

The return codes for the DSIRDM routine are found in register 15. They are as 
follows: 

Successful; the entry was found and its address returned. 

20 Unsuccessful; the specified entry was not found in DSIART, or the entry 

is inactive. 



DSISSS Macro Instruction (ACF/VTAM Only) 



The DSISSS macro instruction checks a specified bit position (as shown in Figure 
3-7) in the span name table (DSISNT) and returns the address to a user-provided 
fullword area of the first entry whose corresponding bit is set to 1. 

Name Operation Operands 

[name] DSISSS SWB= {(register) | symbolic name} 

,OITPOS= {(register) | symbolic name} 

,SNTADDR= {(register) | symbolic name} 
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SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword area containing the address of an SWB. 

oitpos 

is a register containing the address of a user-provided fullword area or the 
symbolic name of that area. This area should contain the bit position to be 
checked (for the first bit set to 1) in DSISNT. Note: The bit positions in 
the span name table correspond to entry positions in the operator identification 
table DSIOIT; for example, the first bit corresponds to the first entry in 
DSIOIT. 

SNTADDR 

is a register containing the address of a user-provided fullword area, or the 
symbolic name of that area. On input to the DSISSM routine, this area 
should contain the address of the entry in the span name table where the 
search is to begin. When the routine has completed processing, this area 
contains the address of the first entry that the search encountered whose 
corresponding operator bit was set to 1. Note: The starting address 
specified in SNTADDR may also be stored elsewhere in case relative location 
calculations are necessary for searching the authorization and resource table 
(DSIART). 

The return codes for the DSISSM routine are found in register 15. They are as 
follows: 

Successful; an entry was found and its address returned. 

12 Unsuccessful; no entry was found; the address originally submitted is still 

in the area specified by SNTADDR. 



Address where the 
search is to begin— 
specified by SNTADDR 
operand on input 



Address of first 
entry whose bit is set 
to 1 — found in 
SNTADDR on output 



DSISNT 



SPAN1 



SPAN2 



SPAN 3 



SPAN4 



Bit position to be 
checked— specified by 
the OITPOS operand 



01 01 01 01 01W 011 



111001011001100 



001011001010010 



001011011011011 











SPANn 


010101 1011,0^ 1 10 



Figure 3-7. Search of the Span Name Table (DSISNT) 
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DSIWA T Macro Instruction 



The DSIWAT macro instruction causes an NCCF subtask to wait for completion 
of an event. 

Name Operation Operands 

[name] DSIWAT ( ECB= {(register) | symbolic name} \ 

ECBLIST= {(register) | symbolic name} ) 

[,DPR= {(register) | address}] 



ECB 

is the symbolic name of an aligned fullword to be used as an event control 
block (ECB), or the address in a register (1 through 12) of an aligned 
fullword. 

ECBLIST 

is the symbolic name of a contiguous list of fullword addresses of ECBs, or 
a register containing the address of the list. The last entry in the list of 
ECB addresses has the high-order bit (bit 0) set to 1 to indicate the end of 
the list. 

DPR 

is the address of the NCCF dispatcher (DSIDPR; VSE only). If this 
operand is not specified, the address in main vector table field MVTPRAD 
is used. Addressability to the main vector table (MVT) is required. 

The following example shows how DSIWAT can be coded. 

DSIWAT ECBLIST=LISTAREA 



ECB1 


DC F'O' 


ECB2 


DC F'O' 


LISTARFJ 


\ DC A(ECB1 ) 




DC A(ECB2) 




DC A(ECB3) 




DC A(ECB4+X' 80000000' ) 


ECB3 


DC F'O' 


ECB4 


DC F'O 1 



Execution resumes when any one ECB is posted. The DSIPOS macro instruction 
is used to set bit 1 of the ECB to 1. A completion code can also be set in the 
low-order 3 bytes of the ECB. The VSE supervisor POST macro instruction can 
also be used to post an ECB. POST sets bit in the second byte of the ECB to 1. 
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DSIWCS Macro Instruction 



The DSIWCS macro instruction writes a message to the system operator console. 
If the message exceeds 121 characters, it is truncated. The message must have the 
NCCF buffer header prefixed to it. 

Name Operation Operands 

[name] DSIWCS SWB= {(register) | symbolic name} 

,BFR= {(register) | symbolic name} 



SWB 

is the name of a fullword that contains the address of the service work 
block (SWB) or is a register containing the address of the SWB. 

BFR 

is the symbolic name of a fullword that contains the address of a buffer 
with the message in it or is a register containing the buffer address. Note: 
This buffer must have a properly initialized BUFHDR. 



DSIWLS Macro Instruction 



The DSIWLS macro instruction sends messages to the NCCF log and the 
operator's hard-copy device. 

Name Operation Operands 

[name] DSIWLS SWB = {(register) | symbolic name} 

,BFR= {(register) | symbolic name} 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a user area that contains the address of an SWB. 

BFR 

is a register containing the address of a user-provided input buffer or the 
symbolic name of a fullword area that contains the address of an input 
buffer. This buffer should contain the record that is to be logged. Note: 
This buffer must have a properly initialized BUFHDR. 

The DSIWLM service routine's return codes are found in register 15. They are as 
follows: 

Successful. 

4 No storage is available for logging. 

12 The operation was successful but there is no active HCT for this task. 
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Data Services Macro Instructions 



NCCF data services macro instructions allow the recording and retrieval of data 
from the VSAM data base. NCCF data services are used only as part of a data 
services command processor. Data services require the data services subtask, as 
defined in NCCF Installation. Note: DSIZCSMS requires a background in SNA 
request /response units (RUs), as described in Systems Network Architecture 
Reference Summary, GA27-3136. DSIZVSMS requires background in the virtual 
sequential access method (VSAM), as described in OS/VS VSAM Programmer's 
Guide, GC26-3838, or Using VSE/VSAM Commands and Macros, SC24-5144. 



DSIZCSMS Macro Instruction 



The DSIZCSMS macro instruction embeds the caller's network services RU 
(REQMS) in a Forward RU that is passed to the SSCP over the access method's 
CNM interface. The SSCP then sends the embedded RU to the specified 
destination. 

Name Operation Operands 

[name] DSIZCSMS SWB= {(register) | symbolic name} 

,DSRB= {(register) | symbolic name} 

,INPUT= {(register) | symbolic name} 

,LENGTH= {(register) | symbolic name} 

,RU= {(register) | symbolic name} 

,RULENG= {(register) | symbolic name} 

,DEST= {(register) | symbolic name} 

[,TARGET= {(register) | symbolic name}] 

[,TYPE=CHAIN] 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword user area that contains the address of an SWB. 

DSRB 

is a register containing the address of a data services request block (DSRB) 
or the symbolic name of a fullword user area that contains the address of a 
DSRB. 

INPUT 

is a register or the name of a fullword storage location containing the 
address of a user input buffer. This buffer is used to construct a 28-byte 
Forward RU to be sent to the specified DEST. This buffer must contain a 
buffer header followed by text; it also holds the Deliver RU that is returned 
by the access method. 
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LENGTH 

is a register or the name of a fullword user area that contains the length in 
binary of the input buffer. 

RU 

is a register or the name of a fullword storage location containing the 
address of a user area. That area is an RU that is to be embedded within 
the Forward RU. 

RULENG 

is a register or the name of a fullword user area that contains the length in 
binary of the embedded RU buffer. 

DEST 

is a register containing the address, or the symbolic name of a fullword user 
area ' c contains the address, of the network destination to which the 
embedded RU is sent. DEST must be 8 characters long, left- justified and 
padded with blanks if necessary. 

TARGET 

is a register containing the address, or the symbolic name of a fullword user 
area that contains the address, of the network component that is the object 
of the embedded RU. TARGET must be 8 characters long, left-justified 
and padded with blanks if necessary. 

TYPE=CHAIN 

indicates that the data services request block (DSRB) has received data and 
s ould remain in use to accept further RUs associated with the specific 
request. If TYPE= CHAIN is specified, the SWB and DSRB operands are 
required; all other operands are invalid. This operand is invalid with an 
unsolicited DSRB. 

The major return codes for the DSIZCSMS macro instruction in register 15 are: 

The requested function was performed. 

4 The requested function could not be performed. 

8 The input buffer was too small. 

12 An error was found in parameter specification. 

16 The program was not executing under a data services task. 

The minor return codes for DSIZCSMS are found in register 0: 

The function was successful. 

4 SWB was invalid. 

8 DSRB was invalid. 

1 2 The DSRB that was passed was in use. 

1 6 An unsolicited DSRB was passed. 
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20 An invalid operator ID was specified in the DSRB. 

24 Reserved. 

28 There was insufficient NCCF storage to process the request. 

32 The CNM interface is inactive. 

36 The request was rejected by the access method. 

40 A user exit routine rejected the request. 

44 Data truncation occurred during the user exit routine processing. 

Further information may be found under "Completion of a CNM I/O Request" 
later in this chapter. 



DSIZVSMS Macro Instruction 



The DSIZVSMS macro instruction provides access to VSAM services which 
perform I/O to the specified problem determination file or data set. The 
operands allow access for data recording, data retrieval, and data deletion. 

Name Operation Operands 

[name] DSIZVSMS SWB= {(register) | symbolic name} 

,DSRB= {(register) j symbolic name} 

GET 
PUT 
,FUNC= \ POINT 

ENDREQ! 
ERASE 

,KEY= {(register) | symbolic name} 

[,KEYLEN= {(register) | symbolic name}] 

SEQ | DIR | SKP 
ARD|LRD 
,OPTION= J FWD | BWD 

NUP | NSP | UPD 
KEQ | KGE 
FKS | GEN 



[,DATAREA= {(register) | symbolic name}] 



SWB 

is a register containing the address of a service work block (SWB) or the 
symbolic name of a fullword that contains the address of an SWB. An 
SWB contains a save area, work area, and TIB address data. The caller 
must initialize the SWBTIB field in the SWB with a valid TIB address. 
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DSRB 

is a register containing the address of a data services request block (DSRB) 
or the symbolic name of a fullword that contains the address of a DSRB. 
The DSRB contains request information such as RPL, ACB, ECB, and 
fields used by the DST VSAM service routine for VSAM I/O. 

FUNC 

describes the VSAM request macro to be issued. See the appropriate 
VSAM programming manual for a description of the VSAM request 
macros. 



KEY 



is a register containing the address or the name of a fullword that contains 
the VSAM key to be used for access to the requested data. 



KEYLEN 

is a register or the name of a fullword containing the length in bytes of the 
key pointed to by KEY. This parameter is required only if OPTION=GEN 
is specified. 

OPTION 

specifies the type of access to the file through requests defined by the RPL. 
Options are arranged in groups; only one option may be specified within 
each group. This operand has no defaults; therefore, on initial use one 
option from each group must be specified to set up the RPL. This operand 
is not valid when FUNC=ERASE or FUNC=ENDREQ is specified. 

Note: See the appropriate VSAM programming guide for descriptions and details 
on how to specify FUNC and OPTION fields. 

DATAREA 

is a register containing the address, or the name of a user work buffer. The 
buffer must be large enough to contain the maximum size record in the file 
or data set and is used by VSAM in the processing of records. This buffer 
must contain an initialized buffer header (BUFHDR, described later in this 
chapter under "Control Block Considerations") followed by text. 

The return codes for VSAM I/O services are shown below. The minor return 
codes provide additional information about the condition indicated in the major 
return codes: 

Register 15 = major return code Register = minor return code 

Successful completion. Successful completion. 

16 A user exit routine rejected the request. 

24 Data truncation occured during 
substitution of data in a user exit 
routine. 

28 A user exit returned an invalid 
return code. 
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Manipulative macro instruction 
instruction error occurred 
during processing. 

An error occurred in the EXEC 
form of a manipulative macro 
instruction; a parameter was 
not in the list. 



See the explanation of RPL feedback 
codes in the appropriate VSAM 
programming guide. 



12 Unsuccessful completion. 



4 The specified DSRB was invalid 
or in use. 



8 An ACB was unavailable or was 
not open. 

20 The VSAM I/O request was invalid or 
there was an I/O scheduling error. 

24 Control block storage could not be 
obtained. 

16 The macro instruction was 
issued while not executing 
under a DST. 

For major return codes 4 and 8, the high-order byte of register 15 contains a 
character that indicates which VSAM manipulative macro instruction failed (for 
example, M=MODCB). Further information about VSAM I/O requests may be 
found under "Completion of a VSAM I/O Request" in Chapter 4. 
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Chapter 4. Command Processors 



NCCF allows the user to tailor, modify, or extend the NCCF program. Command 
processors can be used to process input commands received from operator 
stations, other command processors, or access method messages. These command 
processors are invoked by user-defined verbs that are filed during NCCF 
definition (see NCCF Installation). If an ACF/VTAM or ACF/TCAM message 
number is included in the definition of user-defined verbs, and a command 
processor is written having that phase or load module name, the command 
processor is invoked when NCCF receives the message. User-written command 
processors must be reentrant, written in assembler language, assembled, and 
link-edited into phases or load modules under the name specified by the MOD 
operand of the CMDMDL statement. 

NCCF provides service facilities that may be used when writing command 
processors. These facilities and the macro instructions that call them are discussed 
in Chapter 3. Users who intend to write command processors should also become 
familiar with the control blocks described in Appendix C before beginning design. 
NCCF service facilities require an understanding of the service work block 
(SWB) and the task vector block (TVB), in particular. "Control Block 
Considerations" later in this chapter also discusses control blocks and fields of 
interest to the coder of command processors. 

Appendix D is an example of a user-written command processor; Appendix E 
contains two examples of data services command processors; Appendix F is an 
example of a full-screen command processor. 

The following guidelines must be followed in coding command processors: 

• Make all command processors reentrant. 

• Save registers at entry and restore them before returning control. 

• Do not rely upon the contents of registers and 2 through 12 for constant 
values. Register assignments may vary from task to task or from one program 
release to another. 

• Do not use registers 0, 1, 14, or 15, as they are used by NCCF for macro 
instruction expansion. 

• Register 13 should always point to a standard 72-byte save area. 

• Avoid wait states. The DSIWAT macro instruction must not be issued in any 
immediate command processor. 

• No error handling macro instructions (STAE, STXIT) should be used that 
could override similar specifications being issued by or on behalf of the task. 

• Do not return control to any location in the NCCF program other than that 
specified by register 14. 

• If a command processor is designed to handle more than one verb, carefully 
determine which command is meant. 
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• Do not use names that begin with the fourth, fifth, and sixth letters of NCCF 
control blocks. For example, do not use the names SWBAREA and 
CWBLIST as these names may already be defined in DSISWB and DSICWB, 
respectively. Do not use names that begin with DSI. 

Standard CALL and RETURN sequences transfer control to and from 
user- written command processors; registers should be restored using standard 
linkage conventions. Upon entry to the command processor, the registers contain 
the following information: 



Register Contents 

1 The address of the NCCF command processor parameter list (the 

command work block DSICWB) 

13 A save area address 

14 The return address of the NCCF program 

15 The entry address of the command processor 

0, 2-12 Unspecified information 

DSICWB contains a user save area, the address of the command buffer, the 
address of a service work block (SWB) to be used when invoking NCCF service 
routines, and the address of a parse descriptor block (PRS). The command buffer 
is described in Chapter 3, under "Buffer Header (BUFHDR)" 

When NCCF regains control, it expects to find registers through 14 unchanged 
and a return code in register 15. 

Return codes are documented in Figure 4-4 later in this chapter. 



Operating Environment 



Regular Command Processors 



Regular commands run under the subtask mainline routine (under the PRB in 
OS/VS). Output to the operator's terminal is sent using the DSIPSS macro with 
the TYPE= OUTPUT operand. A regular command may execute under an OST, 
NNT,orPPT. 

A regular command processor receives control when one of the mainline event 
control blocks (ECBs) is posted indicating work to be done. While this command 
processor is operating, no other event completion is recognized. Regular 
command processors may be interrupted by system or access method exit routines 
(not user exit routines). The RESET command causes a regular command 
processor to stop executing by setting the TVBRESET flag. A regular command 
processor should periodically examine this flag and, if the flag is on, terminate 
itself prematurely. It is recommended that this be done within program loops. 
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Regular command processors are invoked because a command is received from 
any of the following sources: 

• Terminal input 

• A command in a command list 

• A message from another subtask 

• A message from another domain 

A regular command processor may also be dispatched by an access method 
message. The command processor can determine the origin of the command that 
invokes it by checking the HDRMTYPE field, described below under "Buffer 
Header." The actual values are shown in the description of the task information 
block (DSITIB) in Appendix C. 

Command processors dispatched by an access method message are the same as 
other command processors except that the verb is an ACF/VTAM or 
ACF/TCAM message number. The command processor writer must know the 
exact wording of the message and where the resource name exists syntactically 
(which PDB element would contain the resource name). 

When an ACF/VTAM message requiring a reply is received, the first PDB 
syntactic element contains the reply ID, not the verb. The verb is the second 
element because ACF/VTAM sends the message that way. The first syntactic 
element, hnn or Pnn (where nn is a 2-digit number), is 3 bytes long and is 
followed by a blank delimiter. The second syntactic element is 7 characters long 
in OS/VS and starts with the characters 1ST, followed by three numeric 
characters, followed by an A. In VSE, the ACF/VTAM message number starts 
with a 5, followed by a letter from A to K, followed by two numeric characters, 
followed by an A. 

If an ACF/VTAM or ACF/TCAM message does not require a reply, the message 
number (as above) occurs first and there is no reply ID. 

Note: If the ACF/VTAM MSGMOD facility is in effect, the 5 -character module 
identifier is removed and saved in the TIBMMD field of DSITIB. 



Immediate Command Processors 



An immediate command processor performs its work as soon as the command is 
entered by the operator, regardless of any other command currently running. For 
example, the RESET command halts an executing regular command. GO and 
CANCEL control command lists (all command lists are regular commands). 
AUTO WRAP, CLEAR key, and no-data-enter control the display screen. An 
immediate command may execute under an OST or NNT. 

While an immediate command processor is running, the subtask cannot be 
interrupted, as only one interrupt-originated (IRB) exit runs at a time. Regular 
commands can be preempted by immediate commands. Immediate commands are 
executed serially. 
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Immediate command processors are called as subroutines of the NCCF receive 
exit routine (DSIRCV). While immediate command processors are serialized for 
one subtask, multiple receive exits (hence multiple immediate commands) can be 
executing simultaneously (especially in a multiprocessor system). Therefore, 
immediate command processor modules must be coded as reentrant. The 
Compare and Swap instruction should be used for referring to or modifying fields 
shared across subtasks. 

If the queue option is used (Q=YES) with the DSIGET and DSIFRE macro 
instructions in an immediate command processor, EXIT=YES must also be coded. 

When presenting data to the display screen, DSIPSS must have the 
TYPE=IMMED operand specified. Output is limited to one line of 71 characters, 
on the line immediately preceding the input area. If more than 71 characters of 
data are required (and not required immediately), DSIMQS may be used to queue 
the data . ^ the subtask mainline processor. The data is displayed when the 
current command processor, if any, completes processing and returns control to 
the mainline processor. 

Both Regular and Immediate Command Processors 

A "both" command processor can run as an immediate command processor, but 
can also be included in a command list, called by a message number, and received 
from another NCCF for execution in this domain. This command processor must 
check the PDBIMMED flag and process differently depending on whether the 
command processor is running as an immediate or as a regular command 
processor. See "Parse Descriptor Block" in Chapter 3. 

Command Processors Executed Under the Primary POI Task (PPT) 

For the following conditions, a command processor is executed under the PPT: 

• Commands entered in response to an access method message received under 
the PPT. 

• AT and EVERY commands that specify PPT as an operand. 

• A command or command list, specified with an NCCFIC statement, that 
executes as soon as NCCF is initialized. 

• System operator MSG and REPLY commands. 

There are several restrictions when a command processor is executed under the 
primary POI task (PPT) : 

• Immediate commands are not allowed. 

• Because no terminal is allocated to the PPT, DSIPSS, issued under the PPT, 
writes a message to the authorized receiver. If there is no authorized message 
receiver, the message is sent to the system console operator. 

• The task information block (TIB) for the PPT is different from the TIB for 
the OST or NNT. For all task types, the CBHTYPE fields of the TVB and 
the TIB indicate the subtask (see the DSICBH control block in Appendix C). 
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Command Processors Executed Under a Data Services Task (DST) 



A command processor executed under a DST may cause itself to be reentered 
after it completes processing. This feature is helpful for requesting retrieval of 
multiple records from a data base or for invoking a command when a record is 
retrieved. 

A command processor for execution under a DST must be defined to NCCF on a 
CMDMDL statement as a data services command processor (DSCP) type D or 
RD (see NCCF Installation). DSCPs are passed a data services request block 
(DSRB; see Appendix C) that contains information about the progress of the data 
services request. The address of the DSRB is passed to the DSCP in the 
CWBDSRB field, described below under "Command Work Block." The 
following restrictions apply to a DSCP: 

• Command lists, immediate commands, and regular commands may not be 
invoked. Only commands defined as D or RD are allowed. 

• There is no terminal associated with a DST, so the DSIPSS macro instruction 
may not be used. If DSIPSS is issued, a code of 20 is returned. 

The task information block for the DST differs from the TIB for other subtasks in 
having the DSITID extension. This extension is not contiguous with the TIB as in 
other subtasks; its address is in the TIBOSEXT field. 

Figure 4-1 shows one way in which data services requests can be structured. This 
design includes: 

• A "front-end" regular command processor © that checks command syntax 
and operands. This command processor builds a command buffer (IFR code 
3) and issues the DSIMQS macro instruction to pass the command to the 
DSCP. 

• The DSCP © executes the command and interacts with the VSAM data base 
(DSIZVSMS macro instruction), the CNM interface (DSIZCSMS macro 
instruction), or both. The DSCP can then accumulate messages and data for 
the originating subtask. If the programmer wants to have individual messages 
displayed on the screen of the originating subtask, the DSCP issues DSIMQS 
to send the data directly to the terminal. 

• If the programmer wants to have the DSCP's data formatted with full-line and 
full-screen presentation services, a presentation services command processor 
(PSCP) can be coded ©. The PSCP accumulates data from the DSCP in a 
buffer. When the PSCP has enough data for a full screen at the originating 
subtask, it issues DSIPSS to send the data. If in full-line mode, the PSCP 
must issue DSIPSS OPTION=LAST before returning control to NCCF or an 
error condition occurs. The DSCP formats its data in a buffer with an IFR 
code 3 and uses the DSIMQS macro instruction to send the data to the PSCP. 
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Data Services 
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or both 
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Figure 4-1. Example of Program Design for Data Services Requests 



An operator may have any number of pending DST requests. Active DST 
requests may be listed using the LIST DST command and purged using the 
PURGE DST command. 



Control Block Considerations 



The control blocks that are passed to a command processor are shown in Figure 
4-2. The control blocks described below are of particular importance to a 
command processor. You should also be familiar with these control blocks 
described in Chapter 3: SWB, BUFHDR, IFR, and PDB. In the control block 
discussions that follow, the sequence of fields may not directly correspond to the 
field sequence in the actual DSECT. Appendix C contains the control block 
listings. 



Command Work Block (CWB) 



The command work block (CWB) contains the command processor parameters, a 
save area, and a work area. Its fields are described below. 



Field Description 

CWBCBH Is the standard NCCF control block header (DSICBH). It 

shows the type and length of the CWB, and contains a byte 
used by DSILCM (locate and control blocks) to indicate 
whether the control block is currently in use. This byte is only 
set when a CWB is obtained with the DSILCS macro. It 
should not be modified by the user. 

CWBSAVEA Is a 72-byte save area that may be used for the command 
processor. 
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Figure 4-2. Command Processor Input Parameter Control Blocks 
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Field Description 

CWBPARMS Is a command processor parameter area. Its subfields are: 
CWBBUF, CWBPDB, and CWBSWB. 

CWBBUF Points to a buffer containing an NCCF buffer header 

(BUFHDR) and the command text. 

CWBPDB Contains a pointer to a parse descriptor block (DSIPDB), 

which is described below. The PDB contains parse 
information for the command pointed to by CWBBUF. If a 
special type of parse is required, the PDB may be reused by the 
command processor. 

CWBSWB Points to a service work block (SWB) that the command 

processor may use or pass as a parameter to NCCF service 
macros or modules. NCCF service macros build parameter 
lists in the SWB for the service modules. The SWB also 
contains a TIB pointer, a 25 6- word area, and a 72-byte save 
area for use by the service routine. SWBs may be reused, 
without reinitialization (service routines or macros only need 
the CBH and the TIB address). 

CWBNEXT Is a reserved field. 

CWBTIB Contains the address of the task information block (TIB) for 

the subtask. The TIB and the task vector block (TVB), which 
is pointed to by the TIB field TIBTVB, contain all the 
information relating to the subtask under which the command 
is running, such as the operator ID, the task type, and the task 
status. The TVB in turn points to the main vector table 
(MVT), which contains information of a global nature, such as 
the domain name, the status of NCCF, (CLOSE NORMAL 
has been issued, for example), pointers to the other global 
tables, and to the other subtasks. One pointer contains the 
address of the service vector list (SVL), which contains all the 
addresses of the service routines (except the address of 
presentation services). NCCF service macros expand to refer 
to both the MVT and the SVL. NCCF requires a USING 
statement for DSIMVT (the DSECT for the MVT) prior to 
coding most NCCF macros (see Chapter 3, "Main Vector 
Table Addressability") 

CWBADATD Is a 256-byte work area for the command processor. If more 
storage is required, the command processor must obtain it with 
the DSIGET macro and release it with the DSIFRE macro. 
Command processors must free any storage obtained. 

CWBDSRB Is used only by data services command processors (DSCPs). 

The data services task (DST) initializes this field with the 
address of the data services request block (DSRB). This field 
should contain zero for all other command processor types. 
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System Command Entry (SCE) 



The PDBCMDA field in the parse descriptor block contains the address of the 
system command entry (SCE), which contains information about the command. 
The DSICES macro instruction uses the SCE to find the command processor for a 
verb or to find the verb itself (if the search is by module name). The address of 
the SCE is also used as input to the DSIPAS macro instruction, described in 
Chapter 2. 



Field 



SCEVERB 



SCELNAME 



SCECADDR 
Data Services Request Block (DSRB) 



Description 

Contains the command verb; it is l-to-8 bytes, left- justified 
and padded with blanks. 

Contains the load module or phase name of the command 
processor to be called for the verb. 

Contains the address of the command processor's entry point. 



The data services request block (DSRB) is the method of communication between 
the NCCF data services task (DST) and a data services command processor 
(DSCP). It contains information for the DSCP and work space for the I/O 
routines. The fields described below are those of interest to a DSCP programmer. 



Field Description 

DSRBCBH Is a standard NCCF control block header. 

DSRBNXTV Contains the address of the next DSRB in the chain; this field 

is reserved for DST use. 

DSRBVECB Is reserved for DST use as an event control block (ECB) when 

requesting VSAM I/O. 

DSRBVRPL Contains the address of the RPL that the DST uses for VSAM 

I/O. This field is reserved for DST use. 

DSRBCUSB Contains the address of an NCCF buffer used by the CNM 

interface for unsolicited data. This field is only used when the 
DSRB function code (DSRBFNCD) indicates that unsolicited 
data has been received. The buffer contains a BUFHDR and 
the data length is in the HDRMLENG field of BUFHDR. 

DSRBFLG Contains the flag settings described below. The bits may be 

examined but not changed. 

DSRBTYPE 1 indicates that the DSRB is for unsolicited CNM data; 

indicates that the DSRB is for VSAM or CNM solicited data 
traffic. 
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Field Description 

DSRBACTV 1 indicates that there is an active transaction using this DSRB. 
A transaction is defined as a request from the time of its first 
arrival at the DSCP to the last exit of the DSCP. When a 
transaction ends, the DSRB is available for reassignment to 
another transaction, for the same or another user. 

DSRBINUS 1 indicates that either the VSAM or CNM interface service 

routine has an active request using this DSRB. DSRBINUS 
should not be on when DSRBACTV is off. 

DSRBRSMV Is a reserved field. 

DSRBRADD Is reserved for DST use. 

DSRBOID Is an 8-byte field containing the ID of the operator that 

initiated the transaction. 

DSRBTIB Contains the address of the DST task information block (TIB). 

DSRBUSER Is a field available for user purposes. If this field is used for a 

storage address, the DST does not free the storage. However, 
storage may be allocated using the DSIGET Q=YES option 
and the storage may be freed as with any subtask using 
Q=YES. If not freed, the storage remains allocated until the 
subtask terminates. 

DSRBVACB Contains the address of the VSAM ACB used for disk I/O. 

This field is reserved for DST use. 

DSRBVDAD Is the field in which the VSAM service routines keep the data 

buffer address while a request is being processed. The buffer 
must have a BUFHDR that is filled in. For a VSAM GET or a 
CNM input request, HDRMLENG contains the length of the 
data actually retrieved. Data is truncated, in the event of 
overflow. 

DSRBUBUF Contains the address of the original command that was sent to 

the DST. This field is unchanged during the data services 
transaction. This buffer contains a BUFHDR and the 
HDRMCEXT extension. It also has an X'0003' IFRCODE 
and HDRTYPEI (see "Internal Function Request in Chapter 
3). 

DSRBPRID Is a halfword field that contains a correlation identifier for use 

by the CNM interface. 

DSRBINPT Is the address of the CNM interface input buffer. 
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Field 



Description 



DSRBRCMA Are fields that contain the return codes for a completed 
and request. They are set after the request is completed but before 

DSRBRCMI the DSCP is reinvoked for request completion. The major 

return code (DSRBRCMA) value is further explained by the 
minor return code (DSRBRCMI). The symbolic values of the 
return codes are in the DSIDSRB DSECT. The values are 
discussed later in this chapter under "Output." 

DSRBFNCD Is a 1-byte field that contains a function code indicating the 

reason that the command processor was called. 

DSRBFNRM Indicates that this is the first invocation of the command 
processor, as the result of a message received from another 
subtask. 

DSRBFUNS Indicates that the command processor was called to handle 

unsolicited CNM data. 



Indicates that the data was requested from the CNM interface. 
Indicates that a VSAM I/O request has completed. 



DSRBFSOL 

DSRBFVSM 
Invoking a Command Processor 

The following are required to invoke a command processor: 

ACWB 
AnSWB 

A command buffer 
APDB 
A save area 

Registers 1, 13, 14, and 15 
Obtaining a Command Work Block (CWB) 

A command processor requires a command work block (CWB) for use as a 
parameter list, a save area, and a work area. 

A CWB may be preallocated (and reused) or may be obtained by issuing the 
DSDLCS macro. Before calling the command processor, the TIB address must be 
stored in the CWBTBB field. 

Obtaining a Service Work Block (SWB) 



The invoker of a command processor must provide an SWB. The SWB may be 
preallocated, obtained with the DSILCS macro, or may be one the invoker was 
passed. This control block must also have its SWBTIB field pointing to the TIB. 
The SWB address must be stored in CWBSWB. 
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Building a Command Buffer 



Each command is invoked with a command buffer containing a verb and optional 
operands. The verb is prefixed with the buffer header (BUFHDR). Each 
BUtHDR field must be initialized except the message command extension 
HDRMCEXT. The address of this command buffer is stored in CWBBUF. For 
details on the buffer header, see Chapter 3. 



Obtaining a Parse Descriptor Bloc 1 ' (PDB) and Parsing the Command 



The invoker must obtain storage for a PDB to parse the command for the 
command processor to be called. The size of the storage for the PDB may be 
obtained by issuing the DSIPRS macro with the PDBSIZE option. The usual 
sizeis 160 bytes. After the storage is obtained (from preallocated storage or with 
DSIGET), the address is stored in the CWBPDB field. The control block header 
(CBH) is built and the first byte is set to the value defined by symbol CBHPDB. 
The second ^te is zeroed and the PDB length is stored in the third and fourth 
bytes prior to invoking the DSIPRS macro. Issuing DSIPRS fills in the PDB 
including the PDBBUFA pointer to the command buffer, the parse elements, and 
the number of parse elements. For details on the parse descriptor block, see 
Chapter 3. 



Looking Up the Command Processor Address 



After the command is parsed, the command must be found in the NCCF system 
command table (DSISCT). The command may be looked up in one of three 
ways: 

Wi i the parsed command in the PDB 

Without prior parsing 

By command processor module name (the module name is known but the verb 
name may change, as in a synonym) 

The DSICES macro invokes the command search routine (DSICAI) to locate the 
appropriate position in the SCT. The position is returned in an area passed on the 
DSICES macro as the SCTADDR parameter. This address points to an SCT 
entry (SCE). The SCE address must be stored in the PDBCMDA field. The area 
returned is mapped by DSISCE. 

When the DSICES macro returns to the caller, the return code indicates whether 
the command is immediate, regular, or both. The caller must set the PDBIMMED 
flag according to the DSICES return codes and the invoker's environment (if 
running under control of the receive exit routine as an immediate command 
processor and the return code was "immediate" or "both"). 



Calling the Command Processor 



Register 1 must point to the CWB (which now in turn points to the PDB, SWB, 
TIB, and the command buffer). Register 13 must point to a save area (where it is 
probably already set, because a save area is required for the service macros). 
Register 15 must contain the command processor's entry point address (found in 
DSISCE) and register 14 must have the return point address. The command 
processor entry point address is stored in the SCECADDR field of the SCE entry 
pointed to by the PDBCMDA field. 
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Initial DSCP Invocation 



When a DST initially invokes a data services command processor (DSCP), the 
DST passes the address of a DSRB in the CWBDSRB field, as described earlier in 
this chapter. The DSRBFNCD field is set to 1 (DSRBFNRM) and the fields 
described under "Data Services Request Block" are also set. If the DSCP issues a 
data services request (DSIZVSMS or DSIZCSMS macro instruction) that is 
accepted, the same DSCP is reentered after the request has been completed. 
Figure 4-3 shows an example of the processing logic for a DSCP. 



Passing a Command to Another Subtask in the Same Domain 

NCCF data services often require passing a command to another subtask (for 
example, from an OST or NNT to the DST). For passing commands from one 
subtask to another in the same domain, an internal function request (IFR; 
described in Chapter 3) is placed in front of the data. The HDRMTYPE field is 
set to HDRTYPEI and the D?RCODE is set to X'0003' in the text area of the 
buffer (B?RCODE=IRFCODCR). HDRTDISP must be set to the displacement 
of IFRCODE. A command and its operands follow IFRCODE. The 
HDRMLENG field is set to the length of the command and its operands plus 2 
bytes for the B?R. The DSIMQS macro instruction is issued to transfer the IFR to 
the destination subtask, as described under the DSIMQS macro instruction in this 
chapter. 

The receiving subtask removes the EFR by setting HDRTDISP to the command 
verb and subtracting the length of the IFR (2) from HDRMLENG. HDRMTYPE 
remains HDRTYPEI. The address of the BUFHDR plus the HDRTDISP value 
equals the location of the command text. 

The HDRSENDR field of BUFHDR contains the operator ID of the sender of the 
buffer. To return error messages or data to the originating subtask, a message 
may be built and sent with DSIMQS using HDRSENDR as the destination. 

For any buffer that is not an IFR (HDRMTYPE=HDRYPTEI), the destination 
subtask message receiver issues DSIPSS TYPE= OUTPUT to display the message 
on the operator's screen. Another method of returning data to an originating 
subtask is to build an IFR and issue DSIMQS to schedule a presentation services 
command processor (PSCP) in the originating subtask. The PSCP receives 
control in the same manner as the original command processor. 

Forwarding a Command to Another Domain for Execution 

A command can be forwarded to another domain for execution in two ways: 

Build a buffer, PDB, and CWB and call the ROUTE command, or 

Build a buffer as explained earlier and issue the DSIPSS macro with 
TYPE=XSEND to transmit the command to the NNT (NCCF-to-NCCF) 
task in the other domain. The command is executed in the NNT as if it were 
entered from a terminal in that domain. 



Data can be returned to an originating domain by issuing DSIPSS 
TYPE=OUTPUT for any HDRMTYPE except HDRTYPEX. 
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Figure 4-3. Example of DSCP Processing Logic 
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Returning a Command to Another Domain for Output 



For standard NCCF mode, an NNT issues DSBPSS TYPE=OUTPUT (for any 
HDRMTYPE except HDRTYPEX) to return a message for output to an OST in 
another domain. If data formatting (for example, a full-screen display) is 
required, the NNT builds a buffer with HDRMTYPE=HDRTYPEX and a 
command in the buffer text. The command verb identifies a user-defined 
presentation services command processor (PSCP). The verb must be 8 or fewer 
characters long, delimited from the rest of the buffer by a blank, and defined in 
the receiving domain. When the OST's cross-domain message receiver receives 
the command buffer, the OST calls the PSCP for the command. The PSCP is 
invoked as described under "Invoking a Command Processor" earlier in this 
chapter. 



Passing Commands to the Access Method 



Output 



Regular Commands 



To pass a command buffer to ACF/VTAM while executing under an OST, NNT, 
or PPT, the user builds a command buffer as described under "Buffer Header" in 
Chapter 3. The user calls the IBM-supplied command processor, which is either 
DSPVTP if it is an ACF/VTAM VARY, MODIFY, or DISPLAY command, or 
DSIREP for a REPLY command. 

A similar procedure applies to ACF/TCAM operator commands. The user builds 
a buffer header and then calls DSITOCP, which passes the command to 
ACF/TCAM for execution. 



As shown in Figure 4-4, command processor return codes depend on the 
operating environment. 



Regular command return codes have meaning in only two situations: 

When returning from a command processor invoked due to terminal input 

When one command processor returns to another command processor (a 
command processor used as a subroutine) 

The return codes are defined in the following categories: 

RC = 0: command processor completed successfully 

RC > 0: command processor did not complete successfully 

RC < 0: special conditions defined by NCCF 

For terminal-originated regular commands, see events 4, 5, and 6 in Figure 4-4 
for the meanings of the return code categories. For a command processor used as 
a subroutine, the specific return codes may be defined as required within the 
categories. 
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Figure 4-4. Effect of Command Processor Return Codes for Terminal-Originated Commands 



Immediate Commands 

Immediate commands have three types of return codes. As with regular 
commands, specific return codes are not defined. (All immediate commands 
originate with terminal input.) 

RC < 0: command is successful - the input area is erased but not the 
immediate message area. 

RC = 0: command is successful - both the input area and the immediate 
message area are erased. 

RC > 0: command is unsuccessful - neither the input area nor the immediate 
message area is erased. 

The immediate return codes are shown in Events 1, 2, and 3 of Figure 4-4. 

Completion of a VS AM I/O Request 

After a DSIZVSMS macro instruction completes processing, NCCF initializes the 
DSRB and sets the following fields: 

• DSRBVRPL contains the address of the VSAM RPL that was used for the 
\ ■ I/O. 

. DSRBVACB contains the address of the VSAM ACB for the DST. 
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• DSRBVDAD contains the address of the VSAM I/O buffer, with a standard 
BUFHDR. For GET requests, the BUFHDR HDRMLENG field indicates 
the length of the data read. HDRTDISP contains the offset to the data. 

• DSRBVKEY contains the address of the key in the DSRBVDAD buffer. 

• DSRBVKLN contains the key length. 

• DSRBVRTP indicates the type of request just completed: 

1. DSRBVGET (VSAM GET) 

2. DSRBVPUT (VSAM PUT) 

3. DSRBVPNT (VSAM POINT) 

4. DSRBVERS (VSAM ERASE) 

5. DSRBVNRQ (VSAM ENDREQ) 

The return codes on reentry to the DSCP are as follows: 
DSRBRCMA DSRBRCMI Explanation 

00 00 Successful completion. 

00 16 User exit processing of VSAM input has 

rejected the Input. HDRMLENG has been set 
to zero. 

00 24 Data truncated because user exit returned 

data longer than NCCF buffer on RC = USERSW 
(see the description of DSIUSE in Appendix C). 
HDRMLENG set to truncated length. 

Invalid return code from user exit. 

VSAM logical error, indicated in 
DSRBRCMI. See VSAM manuals. 

VSAM physical error, indicated in 
DSRBRCMI. See VSAM manuals. 



00 


28 


08 


VSAM RPL 




feedback 


12 


VSAM RPL 




feedback 



Completion of a CNM I/O Request 



When a DSIZCSMS macro instruction completes processing, the DSRB indicates 
the completion. A Deliver RU has been received at the CNM interface. 
DSRBINPT contains the address of the buffer that contains the Deliver RU or 
negative response. The return codes on reentry to the DSCP are as follows: 

DSRBRCMA DSRBRCMI Explanation 

00 00 Successful completion. 

00 04 Negative response was received. DSRBINPT 

contains the address of the negative response. 

00 08 There was not enough NCCF storage to 

process the request. 
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DSRBRCMA DSRBRCMI Explanation 

GO 16 The user exit rejected the Deliver RU. 

The DSCP sets HDRMLENG to zero. 

00 20 The data has been truncated. The length 

of the Deliver RU was greater than the 
buffer. HDRMLENG is set to the truncated 
length. 

00 24 The data was truncated after the user exit 

returned with a return code of USERSWAP (see 
DSIUSE in Appendix C). The DSCP sets 
HDRMLENG to the truncated length. 

00 28 The access method rejected the request. 

Completion of Receipt of Unsolicited CNM Data 

The command processor that is defined as the unsolicited input DSCP receives 
control when the network presents an unsolicited Deliver RU. (This DSCP is 
defined with the UNSOL operand of the DSTINIT definition statement as 
described in NCCF Installation.) When this command processor receives control: 

• DSRBUBUF contains zero because there is no command. 

• DSRBCUSB contains the address of the buffer containing the unsolicited 
Deliver RU. The RU starts at the offset specified in HDRTDISP and the RU 
length is in HDRMLENG. 

The return codes on reentry to the DSCP are as follows: 

DSRBRCMA DSRBRCMI Explanation 

00 00 Successful completion. 

00 16 The user exit rejected the Deliver RU. 

HDRMLENG has been set to zero. 

00 20 Data truncation has occurred. The length 

of the Deliver RU was greater than the buffer. 
HDRMLENG is set to the truncated length. 

00 24 Data truncation occurred after the user 

exit returned with a return code of USERSWAP. 

HDRMLENG is set to the truncated length. 
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Full-Line Command Processor Considerations 



Full-line presentation services can be used to send a full screen of 80-byte 
messages to the operator from a subtask other than an OST, such as from an 
NCCF-to-NCCF task (NNT). This full-screen facility, known as title-line 
output, allows you to send a number of messages, one right after another, and 
have them presented on the screen in a tabular format, with optional title lines. 

Figure 4-5 shows an example of title-line output. The message lines are displayed 
below fixed title lines. The data lines will wrap around until all the data is 
displayed, but the title lines will stay at the top of the screen. 

To use title-line output, format and send the message buffer as follows: 

1 . Set the HDRMTYPE field to HDRTYPEL ('='). 

2. If you want to use title lines, mark the title line or lines by setting the bits in 
HDRIND to title label (HDRLNLBL). There can be from 1 to 5 title lines (1 
to 4 lines if the first title line have data in columns 70 to 80). 

Note: If the first title line has data in columns 70 to 80, a maximum of 4 title 
lines may be used). 

If you do not wish to have title lines, omit this step. 

3. Mark the data lines by setting the bits in HDRIND to data line 
(HDRLNDAT). 

4. Mark the last line of data by setting the bits in HDRIND to data/end 
(HDRLNEND). 

5. From an NNT, issue DSIPSS TYPE=OUTPUT using OPTIONS=MSG for 
each line sent. From a subtask other than NNT, issue the DSIMQS macro to 
the OST that is to receive the output. 



NCCF Title-Line Processing 



At the operator station task, NCCF groups all the full-line buffers until a buffer 
marked as data end (HDRLNEND) is received. The title lines or, if no title lines 
are present, the first message line, is sent to the top of the screen, directly under 
the NCCF title line. Each data line is then shown one at a time. When the 
bottom of the screen is reached, the screen is locked, unless AUTOWRAP FULL 
has been specified. When the screen is cleared, the title lines (if present) are 
repositioned at the top of the screen, followed by the next data lines. This process 
continues until all the messages have been shown. 
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Figure 4-5. Example of Full-Line Title-Line Output 



Coding Requirements 



If possible, NCCF uses screen columns 70 to 80 of the first data line for the 
domain identifier. If the first line contains nonblank characters in these columns, 
NCCF will generate a blank line and add the domain identifier to this line. In 
title-line output, this extra line is treated as a title line. 

At least one character must be in each buffer record sent to the screen. If you 
wish to print a blank line, place a blank character (X'40') in the buffer. NCCF 
supports full-line messages up to 80 characters. Any data line longer than 80 
characters is truncated. 



Full-Screen Command Processor Considerations 



A full-screen command processor displays a full screen of data to the NCCF 
operator. This screen of data is sent using the DSIPSS macro instruction under an 
operator station task (OST). 



Types of Full-Screen Command Processors 



There are two types of full-screen command processors: asynchronous and 
synchronous. 

An asynchronous full-screen command processor allows several full screens to be 
displayed in sequence before returning to standard NCCF mode. Once a 
full-screen mode has been started, further terminal input is treated as input to the 
asynchronous full-screen processor until this command processor is ended. An 
asynchronous command processor can control when NCCF messages and 
commands are able to interrupt full-screen processing. 
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A synchronous full-screen command processor shows a full-screen panel and 
waits for operator input. After the operator responds to the full-screen panel, 
further input is considered as NCCF input and standard NCCF mode is resumed. 
To maintain full-screen mode, another full-screen panel can be sent to the 
operator. 



Operations of a Full-Screen Command Processor 



A full-screen command processor is executed as a regular command processor 
under the operator station task (OST) (see "Operating Environment"). On initial 
entry, a full-screen processor issues the DSIGET macro instruction, which obtains 
storage to keep track of the full-screen process. (This allows the full-screen 
processor to resume control after an interruption.) The full-screen command 
processor then uses a series of DSIPSS macro instructions to prompt the operator 
to enter full-screen data. The input and output data streams are 3270 data 
streams that NCCF does not modify. 



Asynchronous Full-Screen Command Processors 



For asynchronous full-screen command processors, a full screen of data is sent to 
the NCCF display terminal using the DSIPSS macro instruction with 
TYPE=ASYPANEL. The data from an asynchronous full-screen panel is read 
directly by NCCF into the user's buffer area, and an event control block (ECB) is 
posted when the data has been read. After the ECB is posted, the command can 
process the input and issue more full-screen panels. While the asynchronous 
full-screen command processor is running, input to the NCCF terminal is treated 
as input to the command processor and not as a direct input to NCCF. 



Asynchronous Full-Screen Command Processor Parameter List 



When the asynchronous command processor is invoked, it reads and writes to the 
terminal using DSIPSS TYPE=ASYPANEL. A 20-byte parameter list pointed to 
by the PANEL operand of DSIPSS. The format of this list is shown below: 



ECB 
Address 


Output 
Data Stream 
Address 


User input 
Area Address 


Output 
Length 


Input 

Area 

Length 


Data 

Length 

Address 



Bytes (Hex) 



10 



14 



If asynchronous full-screen output is requested, the output data stream address 
field contains the address of a 3270 data stream including a command, WCC, and 
data orders to be written to the terminal. The output length field indicates the 
length, in bytes, of the 3270 data stream (32,767 bytes maximum). The ECB 
address, input area length, user input area address, and data length address are 
not used if only output is requested. 

To read asynchronous full-screen input from the terminal, the ECB address area 
contains the address of an event control block to be posted when the 
asynchronous input is received. The user input area address contains the address 
of a user area into which a full-screen panel data is read. (If the length of the 
data being read is greater than the user input area, the data is truncated.) The 
input area length field indicates the length of the input data area in bytes (32,767 
bytes maximum). The data length address field contains the address of a 
halfword field that is set to the amount of data actually read when the ECB is 
posted. 
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Processing Asynchronous Full-Screen Input 



The DSIPSS macro with TYPE=PSSWAIT allows the full-screen command 
processor to wait on both its own list of events and on a list of NCCF events that 
should be allowed to interrupt the command processor (such as important 
messages). The command processor is able to test the return code after the wait 
to determine if its own ECB or one of NCCF's ECBs has been posted. If the 
return code shows that an NCCF event had completed, the command may return 
to NCCF to allow the processing of the event to occur. If the panel ECB is 
posted, the command processor can process the input in the buffer. In this 
manner, the command processor has complete control of the screen format and 
can return to NCCF after saving the screen status so processing can resume later. 



Testing if NCCF Events have Occurred 



The DSIPSS macro with the TYPE=TESTWAIT allows the command processor 
to test if an NCCF event has already been posted. This option is useful to do 
before issuing DSIPSS TYPE=ASYPANEL to avoid doing input or output when 
a NCCF command is already posted. This option allows early detection of 
interruptions and allows return to NCCF with a minimum of screen interruptions. 



Noninterruptible Command Processors 



If a noninterruptible asynchronous full-screen command processor is desired, the 
command processor can wait on its own list of ECBs and not use 
TYPE =PSS WAIT. This allows the command processor to ignore any NCCF 
interruptions. In this case, it is strongly recommended that the command 
processor include the OST termination ECB, which is located in the TVBTECB 
field of the DSITVB (see Appendix C). This field allows the command processor 
to be notified of any major condition in which the command processor should 
clean up and exit. 



Ending an Asynchronous Full-Screen Command Processor 



When the full-screen command processor has completed, the DSIPSS macro with 
TYPE= OUTPUT or TYPE=IMMED should be issued to restore standard NCCF 
mode. Input to the terminal is now treated as input to NCCF rather than as input 
to the command processor. 



Canceling an Asynchronous Full-Screen Command Processor 



For More Information 



The DSIPSS macro with TYPE= CANCEL allows the coder to change 
characteristics of the asynchronous full-screen command processor, such as the 
input area length or the ECB address, without returning control to standard 
NCCF mode. TYPE= CANCEL can be issued whether or not a DSIPSS 
TYPE=ASYPANEL is active or the input from TYPE=ASYPANEL has been 
posted as complete. This is sometimes necessary since there is no way to 
guarantee that the operator will ever enter data to any given panel. 



See the section titled "General Guidelines" later in this chapter. 
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Synchronous Full-Screen Command Processors 



For synchronous full-screen command processors, a full screen of data is sent to 
the NCCF display terminal using the DSIPSS macro instruction with 
TYPE=PANEL. The full screen of data is displayed. After the operator 
responds to this full-screen panel, either another full-screen panel is sent or 
further operator input is considered as NCCF input and standard NCCF mode is 
required. 



Synchronous Full-Screen Command Processor Parameter List 



When the synchronous command processor is invoked, it reads and writes to the 
screen using DSIPSS TYPE=PANEL. A 16-byte parameter list pointed to by the 
PANEL operand of DSIPSS. The format of this parameter list is shown below: 



Bytes (hex) 









8 


Command Verb 


C 


Output Area Address 


10 


Output Length 


Input Length 



The command verb is a verb that is defined as a regular, both, or RD command 
processor in the NCCF CMDMDL definition statement. The verb is 1 to 8 
characters, padded to the right with blanks. When the input length is zero, the 
command verb is not required; bytes 0-7 of the parameter list are ignored and 
considered reserved. 

The output area address is the address of a 3270 data stream conforming to 
ACF/VTAM requirements for 3270 record-mode data, and including a command 
code, WCC, orders and data. (See Figure 4-6.) 

The output length is the number of bytes in the 3270 data stream. For read-only 
requests, the output length is set to zero. The maximum output length is 32,767 
bytes (X'7FFF'). 

The input length is the maximum input data to be expected by NCCF. Data 
exceeding this length is truncated. NCCF acquires and later frees the required 
amount of virtual storage. If storage is not available, the DSIPSS PANEL request 
fails with a return code of 12 (PSMNOSTG). To write to a terminal without 
reading input and without scheduling a command to process input, set the input 
length to 0. The maximum input length is 32,767 bytes (X'7FFF'). 



DC 


X'F5' 


DC 


X'C3* 


DC 


X'114040' 


DC 


X 1 1DF0' 


DC 


CENTER DATA 1 


DC 


X'1D40' 


DC 


X'13' 



ERASE/WRITE COMMAND CODE 

WCC=RESET KEYBOARD AND MDTS 

SBA ROW 1 COLUMN 1 

START FIELD — PROTECTED, LOW 

MESSAGE TEXT 

START FIELD — UNPROTECTED, LOW 

INSERT CURSOR IN UNPROTECTED AREA 



Figure 4-6. Sample 3270 Data Stream 
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Processing Synchronous Input 



The input data for a full-screen processor is different from the input data for 
standard NCCF commands. The format of the full-screen input buffer is shown 
below: 



BUFHDR 


Command 
Verb 


b 


3270 Data 



The full-screen command receives the same input as any other command: register 
1 points to a CWB, which in turn points to the TIB, SWB, the command buffer, 
and a PDB containing parse data relevant to the buffer. Since the 3270 data in 
the command is not translated or edited in any way, the parse data may not be 
meaningful. The 3270 data stream contains the AID byte, buffer addresses, SBA 
characters, and data. 



Establishing a Full-Screen Subroutine 



Since a synchronous full-screen command processing must return to standard 
NCCF mode to process any commands, it is recommended that a subroutine be 
used to handle full-screen input and output. The subroutine can then suspend the 
full-screen command processor without informing the main screen processor. To 
do this, save the registers at the time of entry into the subroutine. Next, restore 
the registers that the command processor was originally called with and return to 
the OST. When the command is redriven because of the data entered at the 
terminal, reestablish the environment that was saved when the input/output 
subroutine was entered and return to the requester of the input. You may also 
want to have the reshow command processed by this full-screen subroutine. 
Appendix F shows an example of a full-screen command processor subroutine. 



Ending a Synchronous Full-Screen Command Processor 



General Guidelines 



When the synchronous full-screen command processor has completed and is about 
to exit for the last time, it is recommended that the DSIPSS macro with 
TYPE=OUTPUT or TYPE=IMMED be issued to automatically restore the 
standard NCCF panel. If this is not done, the operator must press the CLEAR 
key to return to the standard NCCF panel. 



The following guidelines should be followed for both asynchronous and 
synchronous full-screen command processors. 



Screen Formatting for the 3270 Data Stream 



Since the full-screen command processor is responsible for the 3270 data stream, 
the processor should do one of the following: 

• Issue the DSIPSS macro with TYPE=SCRSIZE to find the presentation space 
dimensions. If the input data is larger than 24 by 80 bytes, issue the 3270 
Erase/Write Alternate command. 

• Issue the 3720 Erase/ Write command and use the default 24 by 80 byte 
screen size. 
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The Escape Key 



The Reshow Option 



The Reshow Key 



Note: When writing data to a full-screen processor, avoid sequences of a read 
followed by another read. This combination leaves the 3270 Input Inhibited 
indicator set, and the operator has to press the RESET key before entering 
data. It is better to follow the first read with a write/read where the output 
data is a WCC that unlocks the keyboard and, optionally, resets the Modified 
Data tags. 



In synchronous full-screen command processors, the operator may temporarily 
suspend full-screen processing and escape to standard NCCF by pressing the 
CLEAR key and requesting options 1 or 3 of the DSI817A options menu (see 
NCCF Terminal Use). Synchronous full-screen command processors should 
define a key to allow the operator to perform this escape function. 



After suspending full-screen processing using the escape key, the operator may 
wish to resume to full-screen processing again. It is recommended that every 
full-screen processor define a command option to reconstruct the last full-screen 
panel and continue processing from where the full-screen process was interrupted. 



A full-screen command processor should define a key, such as the PA2 key, to 
redisplay the last screen shown during full-screen processing. The reshow key 
might be necessary if there are two full-screen processors running alternately. In 
this case, it is possible for data from both of the processors to be written to the 
same screen panel. A reshow key helps the operator avoid this problem. The 
reshow key is useful if the operator has errors in the input data and wishes to 
erase the data and start over, or if the operator accidentally hits the ERASE 
INPUT key and erases good data. The full-screen command processor refreshes 
the screen in response to the reshow key. 



Logging Full-Screen Input/Output 



NCCF does not automatically log full-screen input and output. However, it is 
recommended that a full-screen application program use the DSIWLS macro 
instruction to log pertinent data. 



DSIPSS Return Code from a Full-Screen Command Processor 



The possible return codes to a full-screen command processor from DSIPSS are 
described under the DSIPSS macro instruction. A nonzero return code shows that 
no input command is scheduled. Any cleanup required should be done before 
returning to NCCF. For synchronous full-screen command processors, the 
TVBRESET and TVBPNMOD fields in DSITVB can help interpret several of the 
DSIPSS return codes (see Figure 4-7). The TVBRESET bit is set on by the 
RESET NORMAL command or by option 3 or the DSI817A options menu. The 
TVBPNMOD bit is set on if the full-screen command processor is interrupted by 
either the CLEAR key or an event that causes NCCF to reformat the screen in 
standard NCCF mode. Whenever a command processor builds a data stream for 
panel mode, the TVBPNMOD bit should be tested. 

Note: If you write a full-screen command processor that gets control in the OST 
from a cross-domain message, set the TVBPNMOD bit on before exiting. This 
ensures that TVBPNMOD is set for full-screen commands issued from a terminal. 
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Return 
Code 


TVBRESET 


TVBPNMOD 


Meaning 





OFF 


OFF 


Input data was scheduled. Processing continues. 





OFF 


ON 


Input data was scheduled. The screen was 
modified after processing completed. 





ON 


OFF 


Input data was scheduled; a reset was subse- 
quently requested. The input command will be 
executed. Delay the reset until the input com- 
mand is running. Since TVBRESET may be 
off by that time, it is recommended that 
another bit be set, indicating the reset. The 
screen has not yet been modified. 





ON 


ON 


Input data was scheduled; a reset was subse- 
quently requested. The input command will 
be executed. Delay the reset until the input 
command is running. Since TVBRESET may 
be off by that time, it is recommended that 
another bit is set, indicating the reset. The 
screen has been modified. 


32 


OFF 


ON 


Operator requested escape to standard NCCF 
mode (option 1 of DSI817A). The command 
processor should exit to NCCF and expect the 
operator to request a redisplay of the panel 
later. Input has not been scheduled. 


32 


ON 


ON 


Operator requested escape to standard NCCF 
mode (option 1 of DSI817A). The command 
has been reset. The full-screen command 
processor should exit to NCCF and expect 
the operator to request a redisplay of the 
panel later. Input has not been scheduled. 


44 


ON 


ON 


No input data was scheduled, because the 
operator requested a reset (option 3 of 
DSI817A). 



Figure 4-7. Interpreting the TVBRESET and TVBPNMOD Bits 
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Chapter 5. Exit Routines 



This chapter describes the exit routines available in NC'C'F. It includes a summary 
of the exit routines and instructions for coding and installing them. A sample 
user-written exit routine is shown at the end of the chapter. 

NCCF provides service facilities that may be used by user-written exit routines. 
These facilities and the macro instructions that call them are discussed in detail in 
Chapter 3. 



What Can NCCF Exit Routines Do? 



NCCF exit routines allow the user to edit data flowing to or from NCCF. The 
exit routine can be used to: 

Change commands or messages 

Delete unnecessary messages 

Summarize NCCF events or data 

Handle a specific event in a way different from NCCF processing 

Count or summarize specified information automatically 

Automate processes based on information from the access method 

Each exit routine is designed to handle a particular type of event. When such an 
event occurs, NCCF passes control to the appropriate exit routine for processing, 
and then control is returned to NCCF. Unlike a command processor which is 
invoked to perform a particular service or to handle a specific message, an exit 
routine is used to screen all messages that fall into one of the exit routine 
categories. Exit routines are particularly helpful when they handle an event that 
occurs frequently. 

Exit routines must be reentrant, written in assembler language, assembled, and 
link-edited into phases or load modules specified as DSIEXnn or the name on the 
XIT- operand of DSTINIT. (See "Installation" later in this chapter.) 

It is not necessary for you to code all of the exit routines available. If you do not 
code an exit routine, NCCF uses a default exit routine and no processing changes 
are made. 



Overview of NCCF Exit Routines 



This section describes each of the NCCF exit routines in detail, including coding 
requirements and examples of use. Figure 5-1 shows the interfaces between the 
exit routines and NCCF, the CNM interface, and the access method. Figure 5-2 
shows the subtask environment of each of the exit routines. NCCF modules 
associated with specific exit routines are described in NCCF Logic. 

There are two types of exit routines: NCCF exit routines (DSIEX01 to 
DSIEX15), and data services task exit routines (XIT—). Data services task exit 
routines are invoked by the NCCF data services task (DST). DST exit routines 
are also defined differently than the NCCF exit routines (see "Installation" later 
in this chapter). 

Chapter 5. Exit Routines 5-1 



NCCF 

Operator 

Console 



Access 
Method 



System 
Console 



EX12 

Logon 
Validation 








EX07 

Before 

Cross-Domain 

Output 


EX01 

Input from 
the Operator 




EX08 

Before 

Cross-Domain 

Input 

Processing 




EX03 






Be 
Cc 
Pr 


fore 

immand 
ocessing 




EX05 
Before 
Output to 
Access 
Method 


EX02 
Output to 
the Operator 
or Hard-Copy 
Log 






NCCF 


EX06 
Solicited 
Message Input 
from Access 
Method 


EX13 

OST/NNT 

Message 

Receiver 


EX11 

Unsolicited 

Access 

Method 

Messages 


EX14/EX15 

Before 
Logoff 








TRE 

After ACF/TCAM 

Read 


EX10 

Input 

from 

System 

Console 








EX04 

Before 
Logging 


EX09 
Output 
to the 
System 
Console 


Data Services Task (DST) 


XITD! 

DST 

Initialization 


XITCO 

CNM 

Interface 

Output 


XITCI 

CNM 

Interface 

Input 


XITVN 

VSAM 
Empty 
Data 
Set 


XITVI 

VSAM 
Input 


XITVO 

VSAM 
Output 



Access 


NCCF in 


Method 


Another 




Domain 



Access 
Method 
Operator 
Interface 




Disk 
Logging 



L_L _LJ 



CNM Interface 



Access Method 
SSCP 



VSAM 



Figure 5-1. NCCF Exit Routine Interfaces 
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Figure 5-2. Environment of NCCF Exit Routines 
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The chart below summarizes the exit routines in NCCF. Each of the exit routines 
are then discussed in detail. 



Exit 


Description 


Subtask Environment 


DSIEX01 


Input from the operator 


OST, NNT 


DSIEX02 


Output to the operator 


OST, NNT, HCT 


DSIEX03 


Input before command processing 


OST, NNT, PPT 


DSIEX04 


Log output 


Any subtask 


DSIEX05 


Before output to the access method 


OST, NNT, PPT 


DSIEX06 


Solicited message input from the 
access method 


OST, NNT 


DSIEX07 


Before cross-domain output 


OST, NNT 


DSIEX08 


Before cross-domain input processing 


OST, NNT 


DSIEX09 


Output to the system console 


Any subtask 


DSIEX10 


Input from the system console 


Main task 


DSIEX11 


Unsolicited access method messages 


PPT 


DSIEX12 


Logon validation 


OST, NNT 


DSIEX13 


OST/NIMT message receiver 


OST, NNT, PPT 


DSIEX14 


Before logoff 


OST, NNT 


DSIEX15 


Before VSE logoff 


OST, NNT 


XITDI 


DST initialization 


DST 


XITCO 


CNM interface output 


DST 


XITCI 


CNM interface input 


DST 


XITVN 


VSAM empty data set 


DST 


XITVI 


VSAM input 


DST 


XITVO 


VSAM output 


DST 


DSITRE 


After ACF/TCAM read 


TCT 



DSIEX01: Input from the Operator 



Description: DSIEX01 is invoked from the NCCF receive exit routine (DSIRCV) 
for standard NCCF mode input from the operator terminal or from a 
cross-domain session. When input is routed to a terminal in another domain 
(OST-to-NNT), DSIEX01 is invoked under the NCCF-to-NCCF task (NNT). 

The DSIEX01 exit routine is executed after device-dependent processing occurs 
but before syntax or command verbs are analyzed. The message has not yet been 
logged. 

DSIEX01 executes asynchronously, and may interrupt NCCF processing of 
regular commands. 

Example of Use: DSIEX01 might be used to call a command list with a program 
function key to handle input data from the operator (see "Sample User- Written 
Exit Routine" later in this chapter). 

Coding Requirements: In DSIEX01, messages may be sent to the immediate 
message area of the operator's screen only. If DSIPSS is used, only 
TYPE=IMMED is allowed. 

Avoid coding a WAIT in this exit routine. Do not use any disk services macros in 
this exit routine. 
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DSIEX02: Output to the Operator 



Description: DSIEX02 is invoked for standard NCCF output to an operator 
terminal (DSIPSS TYPE=OUTPUT, DSIPSS TYPE=IMMED). This exit routine 
is executed before device-dependent output is inserted. The data has not yet been 
logged. 

DSIEX02 may executes asynchronously, and may interrupt NCCF processing of 
regular commands. DSIEX02 executes asynchronously if it is invoked with 
DSIPSS TYPE=IMMED, from DSIEX01, or from the NCCF receive exit routine, 
DSIRCV. 

DSIEX02 may also be invoked under the hard-copy task (HCT). In this case, the 
exit is synchronous and can not be interrupted by other network events. You can 
determine if the exit routine is running under the HCT by checking the 
CBHTYPE field of DSITIB or DSITVB for a value of X'03' (see the mapping of 
DSICBH in Appendix C). 

Example of Use: Since the message has been formatted but not yet logged, 
DSDEX02 can be used to examine the message type and the message text. A 
substitute message may be supplied, or the message may be deleted entirely. 

It is possible to use DSIEX02 to log a message but not display it on the screen. 
DSIEX02 can issue DSIWLS to log the message and then issue return code 4 to 
stop processing before the message is displayed. 

Coding Requirements: This exit routine should check the TVBINXIT bit in 
DSITVB to determine for which DSIPSS option the exit was invoked. If the bit is 
not on, the exit was invoked for DSIPSS TYPE=OUTPUT. If the bit is on, the 
exit was invoked for DSIPSS TYPE=IMMED and all restrictions on DSIEX01 
apply to this exit routine. 

Do not use the DSIPSS macro when coding this exit routine. If a message is 
required, use DSIMQS to queue the message to the subtask. The message receiver 
will call DSIEX13 and then write the message to the operator's terminal output 
area. 

DSEEX02 does not receive a parse descriptor block (PDB) because NCCF does 
not check the syntax of messages being sent to a terminal. If you wish to parse 
the messages in DSBEX02, use the DSIGET macro to obtain storage, then format 
a PDB control block header in the first 4 bytes, and issue the DSIPRS macro 
instruction to parse the output buffer. Use the DSIFRE macro to free the storage. 



DSIEX03: Input Before Command Processing 



Description: DSIEX03 is invoked when NCCF is about to execute a command that 
was not directly received from a terminal. This exit routine is similar to 
DSIEX01, but it is for internally generated commands, such as a command: 

• In a command list 

• Received from another subtask 

• Representing an ACF/VTAM or ACF/TCAM message 
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DS1EX04: Log Output 



• Starting the hard-copy log at logon 

• Used as the NCCF initial command 

Before execution, commands are passed to either DSIEX01 or DSIEX03, but not 
to both. 

Example of Use: DSIEX03 can be used for special command checking, such as 
counting the number of times a certain command is entered. 

Coding Requirements: There are no special coding requirements for DSIEX03. 



Description: DSIEX04 is invoked during the logging process. It applies to 
messages logged on both disk and hard-copy. This exit routine is within log 
services but is executed before the message is reformatted and sent to the log. 

Example of Use: DSEEX04 may be used to edit information sent to the disk or 
hard-copy logs. Certain messages may be sent to one log and not the other, or not 
logged at all. 

Coding Requirements: Do not use the DSIWCS, DSIWLS, or DSIPSS macros in 
this exit. 

DSIEX04 is not restricted to a particular subtask, but can run under any subtask 
that issues the DSIWLS macro instruction. For this reason, be sure that any 
service facilities you request are supported by the task under which you are 
running. For example, VSAM services may only be used under the data services 
task. 

DSIEX04 does not receive a parse descriptor block (PDB) because NCCF does 
not check the syntax of messages being sent to a log. If you wish to parse the 
messages in DSIEX04, use the DSIGET macro to obtain storage, then format a 
PDB control block header in the first 4 bytes, and issue the DSIPRS macro 
instruction to parse the output buffer. Use the DSIFRE macro to free the storage. 



DSIEX05: Before Output to the Access Method 

Description: DSIEX05 invoked when a command is about to be passed to 
ACF/TCAM or ACF/VTAM. Any domain qualifiers have been removed, and 
all span checking has been completed. 

Example of Use: You might use DSIEX05 to check if an operator has the authority 
to issue a specific command. 

Coding Requirements: There are no special coding requirements for DSIEX05. 
DSIEX06: Solicited Message Input from the Access Method 

Description: DSIEX06 is invoked when a solicited ACF/VTAM or ACF/TCAM 

message is received (solicited messages are messages generated in response to an 
operator command). No processing has been done on the message yet, and the 
message has not been logged. 
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Example of Use: DSIEX06 could be used to change the message number or text of 
an access method message, or to process access method messages in a special way. 

Coding Requirements: There are no special coding requirements for DSIEX06. 

DSIEX07: Before Cross-Domain Output 

Description: DSIEX07 is invoked before output is sent to a cross-domain operator 
station task in another NCCF (DSIPSS TYPE=XSEND). The output has not yet 
been formatted and transmitted. 

Example of Use: DSIEX07 might be used to monitor cross-domain traffic over the 
network. 

Coding Requirements: Do not use DSIPSS TYPE=XSEND in this exit routine. 
Avoid issuing commands that route a commmand to another domain, such as 
ROUTE, DISPLAY, or VARY. (These commands may be queued for execut^n 
by building an IFR type 3 and issuing the DSIMQS macro instruction, if desired.) 

DSIEX07 does not receive a PDB; the cross-domain NCCF will parse the 
messages after they are received. If you wish to parse the messages in DSIEX07, 
you may use the DSIGET macro instruction to obtain storage, then format a PDB 
control block header in the first 4 bytes, and issue the DSIPRS macro to parse the 
output buffer. Use the DSIFRE macro instruction to free the storage. 

DSIEX08: Before Cross-Domain Input Processing 

Description: DSIEX08 is invoked when input is received from a cross-domain 
operator station task in another domain. This exit routine handles responses from 
previously sent messages. DSIEX08 is not invoked if the input from the other 
domain is a command; in this case, DSIEX03 is used. No processing has been 
done on the message yet, and the message has not been logged. 

Example of Use: You might code DSIEX08 to check whether the OST subtask is 
in a pause state when message DSI809A prompts the user for cross-domain logon 
data. If so, DSIEX08 could post the GO-CANCEL ECB to simulate an operator 
entering the GO command. 

Coding Requirements: There are no special coding requirements for DSIEX08. 
DSIEX09: Output to the System Console 

Description: DSIEX09 is invoked when a message is written to the system console 
operator using the DSIWCS macro. The message has not been formatted for 
transmission. 

Example of Use: This exit routine may be used to edit messages sent to the system 
console. 

Coding Requirements: Do not use the DSIWCS or DSIMQS macros in DSIEX09. 
If you need to send a message to the system console from this exit routine, use 
system macros. 
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DSIEX09 does not receive a PDB. If you wish to parse the messages in 
DSIEX09, use the DSIGET macro to obtain storage, then format a PDB control 
block header in the first 4 bytes, and issue the DSIPRS macro to parse the output 
buffer. Use the DSEFRE macro to free the storage. 



DSIEX10: Input from the System Console 



Description: DSIEX10 is invoked when input is received from the system console 
operator. The exit is invoked after the complete message is available, but before it 
is interpreted for execution. The message has not been logged. 

Example of Use: You could use DSIEX10 to allow the system console operator to 
enter command abbreviations and synonyms. These could then be expanded in 
the exit routine. 

Coding Requirements: DSIEX10 is called from the NCCF main task, not from a 
subtask. 

DSIEX10 does not receive a PDB. If you wish to parse the messages in 
DSIEX10, use the DSIGET macro to obtain storage, then format a PDB control 
block header in the first 4 bytes, and issue the DSIPRS macro to parse the output 
buffer. Use the DSIFRE macro to free the storage. 



DSIEX1 1 : Unsolicited Access Method Messages 



Description: DSDEX1 1 is invoked from the primary POI receiver for unsolicited 
messages from ACF/VTAM or ACF/TCAM. This exit routine is invoked before 
the command verb or the resource name is analyzed. The message has not been 
logged. 

Example of Use: One use of DSIEX1 1 is to handle all unsolicited messages in a 
special way, different from normal NCCF processing. DSIEX1 1 might issue a 
DSIMQS macro instruction to make a copy of the message buffer before it was 
processed by NCCF. Or, if you wanted unsolicited messages to be sent to all 
operators, DSIEX1 1 might transform the messages into MSG ALL commands. 

Coding Requirements: If DSIEX1 1 calls a command or a command list, the 
command restrictions for the PPT apply (Appendix A shows which commands can 
run under the PPT). 



DSIEX12: Logon Validation 



Description: DSIEX12 is invoked at the completion of the logon process. The 
logon has been accepted by NCCF. If the exit routine issues a return code of 
zero, the logon will proceed. If specified, the user's hardcopy log is started and 
the NCCF initial command is executed. If the return code is nonzero, the 
operator is logged off. 

Example of Use: DSIEX12 might be used to do additional checking on user 
authorization, do user environment customization, or send messages to other 
operators. 

Coding Requirements: There are no special coding requirements for DSIEX12. 



DSIEX13: OST/NNT Message Receiver 



DSIEX14: Before Logoff 



Description: DSIEX13 is invoked within the message receiver for 
subtask-to-subtask communication. This exit routine is invoked when either a 
message buffer or an internal function request (IFR) type 8 is received through 
the DSIMQS macro. 

A message buffer is any buffer that does not have a HDRMTYPE of "I" (internal 
function request). When DSIEX13 returns, these buffers are written to the 
operator terminal with DSIPSS TYPE = OUTPUT, unless return code 4 is issued. 
The messages are logged after exit routine DSIEX02 is invoked. 

IFR type 8 is an internal function request reserved for definition by the user. An 
IFR type 8 is not written to the operator terminal. 

Example of Use: If you wish to initiate a nser function with a buffer, you might 
choose to use IFR type 8 in conjunction with DSIEX13. IFR type 8 could be 
further subdivided by providing a unique value in the first two bytes of each IFR 
type 8 buffer. 

Coding Requirements: There are no special coding requirements for DSIEX13. 



Description: DSIEX14 is invoked when an OST or NNT subtask is about to 
terminate normally (not abend). This exit routine may be invoked for several 
reasons, including: 

• LOGOFF is entered at the operator's terminal. 

• Subtask LOSTERM exit is driven ( ACF/ VTAM) . 

• The subtask is posted to terminate. 

The subtask cannot communicate with the operator's terminal at this point; 
however, it is possible to issue the DSIWCS macro to write to the system console 
and the DSIWLS macro to write entries to the log. 

Example of Use: DSIEX14 could be coded to save accounting information, free 
user-obtained storage, or update tables. 

Coding Requirements: DSIEX14 does not receive an input buffer or PDB because 
there is no buffer associated with logoff processing. The return code from this 
exit routine is ignored. 



DSIEX15: Before Logoff with MVX/OCCF or VSE/OCCF 



Description: DSIEX15 is only invoked if NCCF is running as a subtask of 
MVS/OCCF, or VSE/OCCF, separately orderable IBM program products. 
DSIEX15 is provided with MVS/OCCF and VSE/OCCF, so the user does not 
code this exit routine. 

DSIEX15 is invoked during primary session termination processing. This exit 
routine is called immediately before DSIEX14 and is passed the same parameters. 
DSDEX15 is invoked after the logoff has been accepted but before cleanup of the 
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work area. The exit routine notifies MVS/OCCF or VSE/OCCF when the 
subtask through which it is communicating with NCCF has been terminated. 

Example of Use: This exit routine is used by VSE/OCCF only. 

Coding Requirements: DSIEX15 should not be coded by the user. 

XITDI: Data Services Task (DST) Initialization 

Description: XITDI is invoked for each statement read by the DST during 
initialization. When end-of-file is reached, this exit routine is entered with two 
DSIUSE fields, USERMSG and USERPDB, set to zero to indicate that there is no 
more data. 

Example of Use: XITDI can be added to the DST initialization deck to provide 
user initialization values to this exit routine. After processing this statement, the 
exit routine can prevent the DST from scanning the statement by setting return 
code 4, USERDROP. 

Coding Requirements: When invoked for an end-of-file situation, A nonzero return 
code in register 15 indicates to the DST that it should terminate. 

XITDI is restricted to the service facilities available to DST subtasks. 

Note: If all initialization data is to be processed by the exit routine specified as 
XITDI, the user must specify the DST initialization statement that specifies 
XITDI as the first statement in the DST initialization member. 

XITCO: CNM Interface Output 

Description: XITCO is invoked by the data services task (DST) prior to a request 
for CNM interface output. 

Example of Use: This exit routine allows the user to modify the request for CNM 
data (Forward RU). 

Coding Requirements: The exit routine is restricted to the service facilities available 
to DST subtasks. 

If a substitute buffer is specified with return code 8 and register 0, the data must 
be a valid SNA request unit (RU). 

XITCI: CNM Interface Input 

Description: XITCI is invoked by the DST after CNM data is received. 

Example of Use: This exit routine allows the user to modify CMN interface input 
data (Deliver RU). 

Coding Requirements: The exit routine is restricted to the service facilities available 
to DST subtasks. 

Any output from this exit routine must be in the form of a valid SNA request unit 
(RU). 
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XITVN: VSAM Empty Data Set 



XITVI: VSAM Input 



XITVO: VSAM Output 



Description: XITVN is invoked if the DST encounters a VSAM open failure 
because of an empty data set or file. 

Example of Use: This exit routine allows the user to supply a record to be placed 
into the empty data set. For NPDA and the NCCF VSAM log, each of which run 
under a DST, an XITVN exit routine is supplied with the program product. You 
should code this exit routine if you wish to run your own VSAM DST. 

Coding Requirements: If you are using the NPDA or NCCF VSAM log DST, you 
should not code this exit routine. 

The exit routine should return with return code 8, and register pointing to a 
buffer containing the record that will be used to initialize the VSAM data set or 
file. A return code other than 8 will cause the DST to terminate. 

The exit routine is restricted to the service facilities available to DST subtasks. 



Description: XITVI is invoked by the DST after a VSAM GET macro has been 
issued. The record has been read from the VSAM data base but has not yet been 
passed to the requesting data services command processor. 

Example of Use: This exit routine allows the user to modify the record after it has 
been retrieved from a VSAM data set or file, and before the data is passed to the 
data services command processor. 

Coding Requirements: The exit routine is restricted to the service facilities available 
to DST subtasks. 



Description: XITVO is invoked by the DST immediately before the record is 
written to the VSAM data base. 

Example of Use: This exit routine allows the user to modify the record before it 
has been written to the VSAM data set or file. 

Coding Requirements: The exit routine is restricted to the service facilities available 
to DST subtasks. 



DSITRE: ACF/TCAM Read 



Description: This exit routine is called after the check for read completion and 
before passing the data to NCCF subtasks for processing. 

Example of Use: This exit routine allows the user to modify an ACF/TCAM 
record within NCCF, if the user does not choose to do it in a message handler. 
For example, either status messages received from BSC devices (such as 
intervention required) can be discarded (using the USERDROP code from 
DSIUSE) or a logoff can be forced by substituting a buffer with a logoff 
command (using USERSWAP code from DSIUSE). 
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Coding Requirements: Care must be used when inspecting or modifying the buffer. 
Five types of messages are received from ACF/TCAM: 



Screen-size request 

Cross-domain data 

Operator data 

Terminal data 

Logon request 

See Figure 5-3. All five messages begin with the standard NCCF header 
(BUFHDR). Only the HDRMLENG, HDRBLENG and HDRTDISP fields are 
valid. HDRTDISP is the displacement from the start of the buffer to the 
beginning of the ACF/TCAM message. HDRMLENG contains the length of the 
ACF/TCAM message. 



Screen Size Requested 



BUFHDR 


POS 


Origin ID 


'333333C4E2C9E2E2'X 


IFRSS 




Cross Domain Data 








BUFHDR 


POS 


Origin !D 


DSIXTH 


BUFHDR with data / 


Operator Data 






BUFHDR 


POS 


Origin ID 


lEDnnnx or lEADnnnx (TCAM Message) / 



Terminal Data/Logon Requests 



BUFHDR 



POS 



Origin ID 



Data 



Figure 5-3. Message Formats for DSITRE: ACF/TCAM Read 
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Installation 



Coding Guidelines 



All ACF/TCAM messages begin with a 1-byte position value followed by an 
8-byte origin ID. The data following the origin ID varies by data type. 

For screen-size requests, an 8-byte constant ('333333C4E2C9E2E2 , X) is 
followed by an IFRSS (see DSIIFR). 

For cross-domain data, it is an XTH control block followed by a NCCF header 
and data (see DSIXTH). 

For operator data, it is an ACF/TCAM network message number in the IEDnnnx 
or IEAnnnx, followed by the message text. IED and IEA are component ids, nnn 
is the message number, and x is the action code (A, I, or E). 

Terminal data and logon requests have no special format. 



Exit routines should be written in assembler language, assembled, and link-edited 
into phases or load modules. These phases or load modules are made available to 
NCCF by being included in the NCCF library during installation. Only one 
phase or load module is permitted for each exit routine, and conditional selection 
at exit time is not allowed. 

Exit routines DSIEX01 through DSIEX15 are loaded at NCCF start time by their 
assigned names. DST user exits (XIT~) are defined to the data services task by 
the XITxx operands of the DSTINIT statement. Each DST may have different 
user exit routines. When the DST is started, it loads the exit routines. 

If you do not code one of the exit routines, NCCF supplies a default exit routine 
and processing continues normally. The following message is issued each time 
NCCF uses a default exit routine: 

DSI090I LOAD FAILED FOR NCCF MODULE exitname 

This message is for your information only; processing will not be affected. If you 
wish to avoid receiving this message, code any unused exit routines as follows: 

exitname CSECT 

SR 15,15 
BR 14 
END 

Then, link-edit this code into the NCCF load library. 



If you intend to write exit routines, you should be familiar with the NCCF service 
facilities and macro instructions described in Chapter 3. 

The following guidelines should be followed in coding exit routines: 

• Make all exit routines reentrant. 

• Save registers at entry to the exit routine and restore them before returning 
control to NCCF. 

• Avoid wait states. The DSIWAT macro instruction must not be issued in exits 
DSIEX01 andDSIEX02. 
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Input Parameters 
Registers 



Do not rely on the contents of registers and 2 through 12 for constant 
values. Register assignments may vary from exit to exit or from one program 
release to another. 

NCCF uses registers 0,1, 14, and 15 for macro instruction expansion. 

Register 13 should always point to a standard 72-byte save area. 

Do not return control to any location in the NCCF program other than that 
specified by register 14. 

If you are rewording a full-line message, do not change the HDRMTYPE or 
HDRIND fields in the NCCF buffer header. If you are deleting a full-line 
message, delete each section of the message on successive exit routine calls. 
Be careful not to delete a CONTROL, LABEL, or END line unless you are 
deleting the whole message. You can tell if a message is a full-line message by 
checking the HDRMTYPE field of the NCCF buffer header (BUFHDR 
section of DSITIB). HDRTYPEJ, HDRTYPEK, and HDRTYPEL are 
full-line messages. For information on user-written full-line messages, see the 
section titled "Full-Line Command Processor Considerations." 



Standard CALL and RETURN sequences transfer control to and from exit 
routines. Upon entry to the exit routine, registers contain the following 
information: 



Register Contents 



Address of the user exit parameter list (DSIUSE). 
parameter list is described in detail later. 



This 



13 

14 
15 



Address of a standard 72-byte NCCF save area used to store the 
caller's registers. 

Return address of the NCCF program. 

Entry address of the exit routine. 



Control Block Considerations 



0,2-12 Unspecified. 



If you use NCCF service facilities in an exit routine, you must include some 
control block DSECTs in the exit routine. This can be done using the DSICBS 
macro instruction (see Chapter 3). The control blocks needed depend on what 
services your exit routine invokes; however, you will want to include at least 
DSIMVT, DSIUSE, and DSISWB. DSIUSE DSISWB are described below. 
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User Exit Parameter List (DSIUSE) 



The user exit parameter list (DSIUSE) contains addresses for the following: the 
buffer containing the message, the LU name associated with the message, the 
operator identification, and control blocks DSISWB, DSITVB, and DSIPDB. An 
extension to DSIUSE is present for DSIEX12 and the DST exit routines involved 
with input/output (XITCO, XITCI, XITVN, XITVI, XITVO). For DSIEX12, 
the password, hard-copy printer name, and profile name are given. For the DST 
exit routines, the address of DSIDSRB is given. Refer to Appendix C for the 
location of each of these fields. 



Field Description 

USERCBH Is a standard NCCF control block header. The second byte 

USERCODE, indicates what exit routine is being invoked. 

USERMSG Points to a buffer in standard NCCF buffer format, consisting 

of a buffer header (BUFHDR) followed by text. For 
input-type exists, device-dependencies have been removed. 
For input from an operator terminal, substitution for the 
AGAIN command has not occurred. This buffer should not be 
changed, but may be referenced. In exit routines DSIEX14, 
DSIEX15, XITDI for end-of-file, and XITVN, this field is set 
to zero. 

In DS1EX04, the buffer is in the format set up by the caller. It 
has not yet been reformatted for the NCCF log. 

USERLU Points to an 8-byte area that contains the logical unit name 

related to the subtask in control, as follows: 

For an OST, the node name of the operator's terminal. 

For an NNT, the APPL name of the OST that issued the 
START DOMAIN command (NCCFID DOMAINID 
appended with 3 -digit number). 

For a PPT, the NCCFID DOMAINID parameter appended 
with the characters "PPT". 

For an HCT, the node name of the hardcopy printer. 

For a DST, the name from the TSKJD operand of the TASK 
definition statement. 

If the main task is in control, this 8-byte area contains the 
characters "SYSOP". 

USEROPID Points to an 8-byte area that contains a name related to the 

subtask in control, as follows: 

For an OST or NNT, the operator's identifier. 
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Field 



Description 



For a PPT, the NCCFID DOMAINID parameter appended 
with the characters "PPT". 

For an HCT, the address of the node name of the hardcopy 
printer. 

If the main task is in control, this 8-byte area contains the 
characters "SYSOP". 

USERSWB Points to a service work block (SWB) that may be used by the 

exit routine to request services from NCCF or as a work area. 
If necessary, another SWB may be obtained by using the 
DSILCS macro (see the description of SWB below). 

USERTVB Points to the task vector block (TVB). The TVB contains 

information about the subtask under which the exit routine 
was invoked. The TVB is also used to obtain the addresses of 
the TIB, MVT, and SVL (through the MVT). 

USERPDB Points to a parse descriptor block (PDB) or contains 0. The 

PDB contains parse data relating to the buffer pointed to by 
USERMSG. For exit routines DSIEX02, DSIEX04, 
DSIEX07, DSIEX09, DSIEX10, DSIEX14, DSIEX15, 
DSITRE, and XITDI for end-of-file, this field contains 0; A 
PDB is not available when calling these exit routines. 

USERLGON Extension for DSIEX12 and the DST exit routines. If present, 

this extension contains the following fields: 

USERPS WD For DSIEX 1 2 only, contains the password entered by the 

operator during logon. If OPTIONS VERIFY - MINIMAL is 
specified, this field contains blanks. For exit routines other 
than DSIEX 12, this field is not initialized. 

USERHCPY For DSIEX 1 2 only, contains the name of the hard-copy 

printer used by the operator for this session. If no hard-copy is 
used or if OPTIONS VERIFY - MINIMAL is specified, this 
field contains blanks. For exit routines other than DSIEX 12, 
this field is not initialized. 

USERPROF For DSIEX 12 only, contains the name of the profile used for 

this session. If OPTIONS VERIFY = MINIMAL is specified, 
this field contains blanks. For exit routines other than 
DSIEX 12, this field is not initialized. 

USEDSRB For DST exit routines XITVN, XITVI, XITVO, XITCI, and 

XITCO, points to the DSRB associated with the DST 
input/output request. For other exit routines this field is not 
initialized. 
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Service Work Block (SWB) 



Output Parameters 



The service work block (SWB) contains the parameter list for most of the NCCF 
service facilities that are used in an exit routine. The USERSWB field of DSIUSE 
points to a SWB that can by used to request these service facilities. Remember 
that all exit routines that use NCCF service facilities must have addressability to 
the main vector table (MVT). See Chapter 3 for more information. 

If you decide to use the SWB pointed to by DSIUSE as a work area, you can 
obtain another SWB with the DSILCS macro instruction when requesting NCCF 
services. The DSILCS macro might be coded as follows: 

DSILCS CBADDR=( R2 ) , SWB=GET 

If you use the DSILCS macro instruction to obtain another DSISWB, be sure to 
initialize the SWBTIB field of the SWB with the address of the caller's TIB before 
you request NCCF services. 

When the exit routine no longer requires the SWB obtained using DSILCS, the 
SWB should be freed. To free the SWB in the example above, you would code: 

DSILCS CBADDR= ( R2 ) , SWB=FREE 

Note: If you use an SWB as a work area, be careful not to overlay the SWBTIB 
or SWBCBH fields because these fields are not reinitialized by NCCF. If you 
must change either of these fields, reinitialize them before returning control to 
NCCF. 



When an exit routine returns control to NCCF, the register contents should be as 
follows: 



Register Contents 

Unchanged, unless return code 8 is received in register 15. 

1-14 Unchanged. 

15 A return code (see Figure 5-4 for a list of valid return codes). 

The return code is not examined by DSIEX14. 

The parameter list should be unchanged with the exception of the work area. 
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Exit ] 
Routine 


Return 
Code 


Symbol 


Meaning 


All but 
DSIEX14 





USERASIS 


Use the message as presented to the exit routine. 
For DSI E X1 2, allow the logon. 


4 


USERDROP 


Delete the message; do not process it further. For 
DSI EX 12, reject the logon. 


All but 
DSIEX12 
and 
DSIEX14 


8 


USERSWAP 


A message has been substituted for the message 
presented to the exit routine. The address of buffer 
containing the new message is in register 0. When 
using this return code, follow these restrictions: 

• The message cannot be longer than the data 
portion of the original buffer. You can calculate 
the length of the buffer area by subtracting 
HDRTDISP from HDRBLENG in the BUFHDR 
section of DSITIB. 

• To ensure that the user buffer will be freed, 
either (1) build the buffer in the SWBPLIST or 
SWBDATD fields of DSISWB or (2) acquire the 
buffer at logon in DSIEX12 by using user fields 
such asTIBUFLD, TVBUFLD, or MVTUFLD 
and free the buffer with DSIEX14 during logoff. 


DSIEX04 
Only 


12 


USERLOG 


Write the message to the disk log only. 


16 


USERLOGR 


Write the substituted message to the disk log only. 
The address of the buffer containing the new message 
is in register 0. 


20 


USERHCL 


Write the message to the hard-copy log only. 


24 


USERHCLR 


Write the substituted message to the hard-copy log 
only. The address of the buffer containing the new 
message is in register 0. 



Figure 5-4. Return Codes Set by Exit Routines 



Exit Routine Prototype 



DSIEXNN 



The following shows the basic structure of an exit routine, including entry, 
obtaining an SWB freeing the SWB, and exit linkage. This exit routine may be 
pp _„ used as a prototype for writing your own exit routines. 

CSECT 

DSICBS DEFER=ALL INCLUDE CONTROL BLOCKS 

DSICBS DSITIB, DSITVB,DSIMVT, DSISWB ,DSIPDB, DSIUSE, DSISVL 

STM 14,12,12(13) 

LR 10,15 

USING DSIEXNN, 10 

USING DSIUSE,1 

L 11, USERSWB 

USING DSISWB, 1 1 



LA 

ST 

ST 

LR 

LR 

DROP 

USING 

L 

USING 



2 , SWBSAVEA 

2,8( ,13) 

13, 4( ,2) 

13,2 

9,1 

1 

DSIUSE,9 

1 2 , USERPDB 

DSIPDB,12 



SAVE REGISTERS 

SAVE BASE REGISTER 

REG 10 IS THE BASE 

REG 1 POINTS TO DSIUSE 

LOAD REG 11 WITH SWB ADDRESS 

BASE SWB 

GET ADDRESS IF SAVE AREA 

SAVE REG 2 

SAVE REG 13 

REG 13 CONTAINS SAVE AREA ADDR 

MOVE DSIUSE ADDRESS 

DROP ORIGINAL BASE 

REG 9 POINTS TO DSIUSE 

LOAD REG 12 WITH PDB ADDR 

BASE THE PDB 
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L 8,USERTVB ADDRESS THE TVB 

USING DSITVB,8 BASE THE TVB 

L 7,TVBMVT GET THE ADDRESS OF THE MVT 

USING DSIMVT f 7 BASE THE MVT 

* NOW OBTAIN ANOTHER SWB IN ORDER TO ISSUE NCCF SERVICE MACROS * 

* * 

DSILCS CBADDR=WORKADDR,SWB=GET GET A NEW SWB 
SPACE 1 

* NOTE: SEE DSISWB DSECT AT THE END OF THE LISTING 

SPACE 1 

LTR 15,15 TEST DSILCS RETURN CODE 

BNZ ABEND GO AND ABEND IF OUT OF STORAGE 

L 5,WORKADDR POINT TO NEW SWB 

L 4,TVBTIB PUT THE TIB ADDRESS IN REG 4 

ST 4,SWBTIB-DSISWB( ,5) STORE THE TIB ADDR IN THE NEW SWB 

* * 

* NOW REGISTER 5 POINTS TO THE NEW SWB. THIS SWB SHOULD BE USED * 

* FOR ALL SERVICE MACROS IN THIS EXIT. * 

* * 

* PUT YOUR USER EXIT CODE HERE * 

* . . . * 

* * 

* * 

* * 

* NOW THE NEW SWB MUST BE RELEASED BEFORE EXITING. * 

* * 

RETURN EQU * 

DSILCS CBADDR=(5),SWB=FREE NOW FREE THE GOTTEN SWB 
LTR 15,15 TEST IF DSILCS WAS SUCCESSFUL 

BNZ ABEND ABEND IF FAILED TO FREE SWB 

SPACE 1 

* PICK THE EXIT LINKAGE DESIRED FROM THE THREE BELOW: 

* TO PROCESS THE BUFFER AS IS FROM HERE ON, RETURN FROM HERE 
ASIS LA 15,USERASIS SET AN ASIS RETURN CODE 

L 13,4(,13) RESTORE CALLER'S SAVE AREA ADDR 

L 1 4 , 1 2 ( , 1 3 ) RESTORE CALLER ' S REGISTER 1 4 

LM 0,12,20(13) RESTORE CALLER ' S REGISTERS 0- 1 5 

BR 14 RETURN TO CALLER 
SPACE 1 

* TO STOP FURTHER PROCESSING ON THIS BUFFER, RETURN FROM HERE 
DROP LA 15,USERDROP SET A DROP RETURN CODE 

L 1 3 , 4 ( , 1 3 ) RESTORE CALLER ' S SAVE AREA ADDR 

L 1 4 , 1 2 ( , 1 3 ) RESTORE CALLER ' S REGISTER 1 4 

LM 0,12,20(13) RESTORE CALLER ' S REGISTERS 0-15 

BR 14 RETURN TO CALLER 
SPACE 1 

* TO SWAP A BUFFER FOR THE BUFFER PASSED, RETURN FROM HERE 
SWAP LA 15,USERSWAP SET A SWAP RETURN CODE 

POINT TO THE SWAP BUFFER 
RESTORE CALLER'S SAVE AREA ADDR 
RESTORE CALLER'S REGISTER 14 
RESTORE CALLER'S REGISTERS 1-15 
RETURN TO CALLER 

SPACE 1 
ABEND EQU * 

ABEND 4000 ABEND 4000-4095 RESERVED FOR USER 

* IN VSE, USE THE DSIABN MACRO. 

SPACE 1 

DSICBS DEFER= INCLUDE , PRINT=YES , EJECT=YES 
DSISWB DSECT , EXTEND THE SWB DEFINITION 

ORG SWBADATD POINT TO 256 BYTE WORK AREA 

WORKAREA DS 0CL256 WORKAREA IS 256 BYTES LONG 



LA 


15,USERSWAP 


L 


, SWAPBFR 


L 


13, 4( ,13) 


L 


14,12( ,13) 


LM 


1 ,12,24( 13) 


BR 


14 
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WORKADDR DS A 
SWAPBFR DS A 

SPACE 1 
DSIEXNN CSECT , 

END DSIEXNN 

Sample User-Written Exit Routine 



ADDRESS OF NEW SWB SAVED HERE 
ADDRESS OF SUBSTITUTION BUFFER 

RESUME CSECT 

END OF THE USER EXIT 



The following is an example of a user-written exit routine. This DSIEX01 exit 
routine allows an operator to enter data and press a program function (PF) key 
that the exit routine interprets and uses to call a command list. The command lists 
are then defined with names such as $A, $B, and so forth. For example, if an 
operator enters TASKS and presses PF3, the exit routine changes the percent 
(%) sign (for the PF) to $, and 3 to C and instructs NCCF to ue the original 
command in the buffer. The SC then causes NCCF to call command list $C, 
which can perform the function the user wishes at this point. This exit routine 
requires inclusion of the following NCCF control blocks: DSICBH, DSIMVT, 
DSIPDB, DSISWB, DSITIB, DSITVB, and DSIUSE. 

TITLE 'DSIEX01 - NCCF TERMINAL INPUT USER EXIT ROUTINE' 

* * 

* DSIEX01 - NCCF USER EXIT FOR TERMINAL INPUT * 



* THIS USER EXIT ROUTINE CHECKS TO SEE IF A 3270 PF OR PA KEY WAS 

* DEPRESSED. IF IT WAS, THE VERB IN THE BUFFER WILL START WITH A '} 

* THESE VERBS (COMMANDS) ARE ASSUMED TO BE CLISTS OR COMMANDS 

* STARTING WITH THE ' ' (X'5B' ) CHARACTER. PF KEYS ARE TRANSLATED 

* TO A (PF1) TO X (PF24). PA KEYS ARE TRANSLATED TO 1 ( PA1 ) TO 

* 3 (PA3). 
* 

OUTPUT i 



REGS SAME AS INPUT EXCEPT * 

R15 = IF OK * 

R15 = IF UNSUPPORTED * 

KEY WAS PRESSED * 

* 

DSICBS DSITIB, DSIPDB, DSISWB, DSIUSE, DSIMVT, DSISVL, DSITVB, * 



* INPUT: R1 = 


DSIUSE ADDRESS 


* R13 = 


SAVEAREA ADDRESS 


* R14 = 


RETURN ADDRESS 


* R15 - 
* 


ENTRY ADDRESS 




DSIEX01 CSECT 





DEFER=ALL 
STM 14,12,12(13) 
LR 10,15 
USING DSIEX01 ,10 
LR 7,1 
USING DSIUSE, 7 
L 11,USERSWB 
USING DSISWB, 11 
LA 2 , SWBSAVEA 
ST 2,8(13) 
ST 13,4(2) 
LR 13,2 
L 12,USERPDB 
USING DSIPDB, 12 



INCLUDE CONTROL BLOCKS AT END 
SAVE REGISTERS 
SET BASE ADDRESS 

MOVE USER EXIT PARAMETER LIST ADDRESS 

LOAD SWB REG WITH SWB ADDRESS 

GET ADDRESS OF SAVEAREA 



R13 CONTAINS SAVEAREA ADDRESS 
LOAD PDB REG WITH PDB ADDRESS 
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*NOW LOOK AT DATA IN THE INPUT BUFFER 



CLI PDBNOENT+ 1 , X ' 00 ' 

BE RETURN 

LA 3 , PDBTABLE 

USING PDBENTRY,3 

CLI PDBLENG,X'02* 

RETURN 

5 , PDBBUFA 

5,PDBDISP 



DATA IN INPUT BUFFER? 

IF NOT, GET OUT 

GET PDB ENTRY FOR CMD VERB 



BNE 

L 

AH 



* 



IS LENGTH =2? 

IF NOT, PFK NOT PRESSED SO LEAVE 

ADDRESS OF COMMAND BUFFER 

ADD DISPLACEMENT TO VERB 

R5 NOW HAS ADDRESS OF CMD VERB 

♦CHECK IF PF/PA KEY WAS USED TO ENTER THIS COMMAND 

CLI 0(5), CSS' IF %, IT WAS ENTER KEY WITH DATA 

BNE RETURN BRANCH IF ENTER KEY WITH DATA 

*PF KEY WAS USED 

*fe *fe ■}!*■*; ?fc A ifc ?fc .jt ?fe?feftC'itiife?tc?fe?tTAtf; rft rft rf? ife tjc tf? A ife sfc if? ift ?fc ?fe ifc sfc sfe ttt ?k^{t^?tH»^^'t?^ l t itt ?ft ift ?}■ »t« ^ft sfe HtiteiitsfestetfeifcAite ife ^g 3fc ?fc ^ ?t? tfe ite 

* PF1 - PF24 MAP TO COMMANDS/CLISTS NAMED A- X, PA1-PA3 TO 1-3 

TR 1(1,5), TRANTAB TRANSLATE AID 

MVI 0(5),C ' CONVERT % TO 

CLI 1(5),C'*' IS AID INVALID? 

BNE RETURN NO 

* UNSUPPORTED AID BYTE 

L 5,USERMSG POINT TO BUFFER 

USING BUFHDR,5 COVER BUFFER HDR 

MVI HDRMTYPE,HDRTYPEU MAKE A USER MSG 

HDRTDISP , DISPLACE 

HDRTEXT( L ' AIDMSG ) , AIDMSG 

HDRMLENG , MSGLENG 

2,USERTVB POINT TO THE TVB 

2,TVBMVT-DSITVB( ,2) POINT TO THE MVT 



* 
ERRRET 



RETURN 



MVC 

MVC 

MVC 

L 

L 



USING DSIMVT,2 

DSICLS SWB=GET,CBADDR=MYSWBPTR 

LTR 15,15 WAS SWB GOTTEN? 

BNZ RETURN NO - RETURN WITHOUT MSG 

L 15,MYSWBPTR ADDRESS MY SWB 

MVC SWBTIB-DSISWB( ,15),SWBTIB COPY THE TIB ADDRESS TO MY SWB 

DSIPSS TYPE=IMMED , BFR=( 5 ) , SWB=MYSWBPTR 

DS ILCS SWB=FREE , CBADDR=MYSWBPTR 

ERROR RETURN 



L 13,4(13) 

LM 14,12,12(13) 

LA 15,4 

BR 14 

EQU * 

L 13,4(13) 

LM 14,12,12(13) 

SR 15,15 

BR 14 



RC = DELETE THE MESSAGE/COMMAND 
GOOD RETURN 

RC - CONTINUE THE PROCESS 



Chapter 5. Exit Routines 5-21 



TRANTAB EQU *-X ' 4C ' 

DC C'VWX** XMC'-X^F' 

DC 16C'*' X'SO'-X'SF' 

DC 11C f * , ,C"l3*2*' X'eO'-X'GF' 

DC 10C'*' ,C'JKL*** f X^O'-X'TF' 

DC 64C'*» X'SO'-X'BF' 

DC C'*MNOPQRSTV* *****' X'CO'-X'CF' 

DC 32C*' X'DO'-X'EF' 

DC C'*ABCDEFHI' X'FO'-X'Fg' 



DISPLACE 

AIDMSG 

MSGLENG 

DSISWB 

MYSWBPTR 
DSIEX01 



DC AL2 ( HDRTEXT-BUFHDR ) 

DC CUSR001I NOT SUPPORTED FOR COMMAND ENTRY' 

DC AL2(* -AIDMSG) 

DS ICBS DEFER=INCLUDE , PRINT=NO 



DSECT 

ORG 

DS 

CSECT 

END 



SWBADATD 
A 

DSIEX01 



RESUME SWB. REDEFINE WORKAREA. 

POINTER TO MY SWB 
RESUME CSECT 
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Chapter 6. Subtasks 



This chapter describes the rules and requirements for writing optional NCCF 
subtasks. It also describes the control block fields that are of use when coding 
a subtask. A sample user-written subtask is shown at the end of the chapter. 

NCCF provides service facilities that may be used by user- written subtasks. 
These facilities and the macro instructions that call them are discussed in detail 
in Chapter 3. 



Why Write Your Own Subtask? 



Each of the subtasks in NCCF handles a separate function: The OST and NNT 
control an operator's terminal and cross-domain session. The PPT processes 
system operator commands, unsolicited access method commands, and 
timer-initiated commands. The DST provides support to gather, record, and 
manage data. The HCT controls the hard-copy device. In ACF/TCAM, the 
TCT acts as the interface between NCCF and the ACF/TCAM application 
message handler. 

You can write your own subtask to provide additional customization of NCCF. 
For example, you might write a subtask to centralize a process that would be 
used by several different subtasks, such as access to a data base. You might 
also write a subtask to process certain types of data or one network 
management function. The subtask that you write is attached and started by 
NCCF as an optional subtask. 



Defining the Subtask to NCCF 



Subtask Organization 



The subtask must be link-edited and stored in an NCCF load library under the 
name specified on the MOD operand of the TASK definition statement. 

You should use the TASK definition statement to define your subtask to NCCF. 
For example, the following definition statement 

TASK MOD-USERMOD , TSKID=USERTASK , MEM=USERMEM , PRI=9 , INIT-Y 

indicates that the subtask is in module USERMOD, and has a SUBTASK 
identification of USERTASK. The dispatching priority is 9, the lowest priority, 
and the subtask is to be started during NCCF initialization. For a DST, MEM 
is used as the member name of DSIPARM for additional initialization 
information. The subtask you write can use the MEM parameter for other 
functions, for example as DD name, a member name, or an operator identifier. 
For more information on MEM, see "Reading the Subtask Initialization Deck" 
later in this chapter. 



NCCF subtasks are normally divided into three parts: initialization, process, 
and termination. See Figure 6-1 for an overview. Initialization sets up the 
processing environment, process performs the sut+ask functions, and termination 
cleans up and exits. 
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Release 
Resources 



— * < EXT ) 



Issue DSIWAT 
Macro on the 
ECB List 




I 



Process the Data 



ET3 



User- Defined 
Processing 



Termination 



oet 
TVBTERM=1 



Figure 6-1. Subtask Organization 

The basic initialization and termination procedures are standard for all subtasks, 
and must be followed when you write your optional subtask (See 
"Requirements," below). 

The process section of a subtask usually begins with a DSIWAT (WAIT) macro 
on an event control block (ECB) list. The contents of the ECB list vary 
according to the function to be performed; however, all subtask ECB lists must 
contain the termination ECB, TVBTECB. 

In OS/VS, all ECBs are posted using the X'40000000' bit. Both DSIPOS and 
OS/VS system POST macros use the same bit. In VSE, the DSIPOS macro 
uses the X'40000000' bit while the VSE system POST macro uses the 
X'0000800' bit to indicate that the event has been posted. Subtasks running 
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Requirements 



Coding Guidelines 



Entry and Exit Linkage 



Subtask Attachment 



under VSE should check for the presence of both bits. It is recommended that 
NCCF subtasks use DSIPOS rather than the system POST macro to post ECBs. 

It is the responsibility of the subtask to determine which ECB(s) are posted and 
take the appropriate action. Before reissuing the DSIWAT macro, the ECBs 
must be set to zero. 



This section describes those features that must be provided by a user-written 
subtask. 



When writing subtasks, you should be familiar with the NCCF service facilities 
and macro instructions described in Chapter 3. 

The following guidelines should be followed in coding subtasks: 

• Make all subtasks reentrant. 

• Save registers at entry to the subtask and restore them before returning 
control to NCCF. 

• NCCF uses registers 0, 1, 14, and 15 for macro instruction expansion. 

• Register 13 should always point to a standard 72-byte save area. 

• Do not return control to any location in the NCCF program other than that 
specified by register 14. 



When a subtask is attached, the following register contents are provided: 

Register 1 Address of task vector block for subtask 

Register 13 Save area address 

Register 14 Return address 

Register 15 Subtask entry point address 

The control blocks at entry to an optional subtask are shown in Figure 6-2. 
From the task vector block (DSITVB) you can obtain the addresses of the task 
information block (DSITIB) and the main vector table (DSIMVT), which are 
used by the subtask. DSITIB is pointed to by the TVBTIB and the DSIMVT is 
pointed to by the TVBMVT in the DSITVB. These control blocks are 
described in detail at the end of this chapter. The TVBTCB field of DSITVB 
points to the OS/VS task control block or to the VSE NCCF pseudo TCB 
(See NCCF Logic ). 



NCCF provides two types of attaches: normal and cleanup. A normal attach is 
caused by issuing a START TASK command or by specifying INIT=Y on the 
TASK definition statement. The TVBTERM bit in DSITVB is set to zero. 
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Figure 6-2. Subtask Input Parameter Control Blocks 

When a subtask terminates normally, this bit is set to one by the subtask, 
indicating that the resources allocated by the subtask have been released and 
now the resources allocated by the main task are to be released. 

A cleanup reattach occurs after a subtask has terminated abnormally. The 
NCCF main task sets the TVBTERM biyto one, and the subtask is reattached. 
When the subtask gains control, it should free all resources, and then exit 
normally. 



Indicating that the Subtask is Ready 



A subtask must indicate that it is ready to operate. After the subtask is 
initialized and before it starts processing, the subtask must enter a value into the 
TVBOPID field of the DSITVB. This value is chosen by the subtask, and must 
be unique in the TVB chain. The most frequently used method is to copy the 
contents of TVBLUNAM, which is the value of the TSKID operand of the 
TASK definition statement, into TVBOPID. You may also use a hard-coded 
value, or another method. 

For OS/VS, you should ensure that the TVBOPID value is unique by using the 
OS/VS ENQ macro and DSBLCS, as follows: 

1. Issue the ENQ macro: 

ENQ ( MVTNCCFQ , MVTTVBRN , E , 1 8 , STEP ) 



Note: Be sure you have addressability to the MVT before issuing this macro (see 
Chapter 3). 
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The ENQ macro prevents other subtasks from changing operator identifiers 
in the chain. 

2. Issue the DSILCS macro, supplying the correct operand values: 

DSILCS CBADDR= name , TVB=MVTTVB , OPID= name 

The DSILCS macro will attempt to locate a DSITVB containing the 
specified operator identifier. If the return code is 0, the name cannot be 
used in TVBOPID because it is already in use. If the return code is 8, the 
name is unique; place the subtask identifier into TVBOPID and set the 
TVBACTV bit to 1. 

3. Dequeue the TVB chain by issuing: 

DEQ ( MVTNCCFQ , MVTTVBRN ,18, STEP ) 

For VSE, issue the DSILCS macro instruction as shown in step 2, above. The 
ENQ and DEQ macros are not required. 



Subtask Termination 



Include the TVBTECB field of DSITVB in the subtask ECB list for each 
subtask you write. When an NCCF CLOSE NORMAL command is issued, and 
after all NCCF operators have logged off, the main task posts the TVBTECB 
bit of the subtask to indicate that subtask termination is requested. When the 
subtask finds the TVBTECB bit posted, it should: 

Release all resources. 

Set TVBOPID to blanks. 

Set TVBACTV to zero. 

Set TVBTERM to one. 

Reload the registers originally passed, and return to the address specified in 

register 14. 



Optional Facilities 



LIST Command 



This section describes optional facilities that you may wish to provide in a 
user-written subtask. 



The LIST command may be used to display the status of the subtask from an 
operator's terminal. For optional subtasks, first a header line is displayed by 
the LIST command processor. Then the contents of TVBOPID and 
TVBLUNAM are displayed, along with the subtask type (OPT) and the status 
of the subtask as determined by the following DSITVB bit fields: TVBRCVRY 
(in recovery), TVBLGOFF (stopping), TVBACTV (active), TVBLGON 
(starting), or none of the above (not active). The search order of the bits is the 
order shown. 
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The subtask may also create its own status display. The subtask must create its 
own display when the status changes. Follow these guidelines when creating a 
status display: 

1. NCCF will not print your status display if any of the following are true: 

• The buffer pointer in TIBOSLST is zero. 

. The TVBTIB field of the DSITVB is zero. 
. The TVBTERM bit is set. 

• The TVBACTV bit is zero. 

2. The subtask is responsible for keeping the buffer containing status 
information current. When updating status, set the DSITIB buffer pointer 
TIBOSLST to zero until the buffer is ready to be displayed. 

Queued Storage Management 

The DSIGET Q=YES facility is provided to ensure that storage is freed in case 
of an abnormal termination by recording storage requests. The storage blocks 
are chained together from one of two queues: TVBEXITQ (if EXIT=YES), and 
TVBTASKQ (if EXIT=NO). During normal subtask termination, any DSIGET 
storage remaining should be freed using DSIFRE. To release the storage: 

• Check the queue anchor (TVBTASKQ or TVBEXITQ). If the field is zero, 
there is no storage to be released. 

• If the queue anchor is not zero, obtain the storage address from this field. 

• Add 16 to address. 

• Issue DSIFRE Q=YES specifying the computed address and the size of the 
storage. The size may be specified as zero (LV=0). 

• Continue to check the queue anchor until no storage is left to be released. 

For an example of this process, see the section titled "Sample User- Written 
Subtask." 

Reading the Subtask Initialization Deck 

You may wish to use the value of the MEM keyword of the TASK definition 
statement as the l-to-8 character name of the user-defined initialization data set 
B book or member name in DSIPARM. This value is found in the 



6-6 



Logging Messages 



Issuing Messages 



Receiving Messages 



TVBMEMNM field of DSITVB. The subtask is responsible for processing the 
contents of this book or member. The subtask should issue the following 
commands to use NCCF disk services to read DSIPARM: 

DSIDKS TYPE=CONN,NAME=DSIPARM to connect the subtask to 
NCCF disk services. 

DSIDKS TYPE=FIND,T>IAME=:TVBMEMNM address to find the 
DSIPARM member and read the first record. 

DSIDKS TYPE=READ until the end-of-file return code is returned. 

DSIDKS TYPE=DISC to disconnect from NCCF disk services. 

If the DSIPARM member or book name is not used by the subtask, 
TVBMEMNM may be used for other purposes, depending on how the MEM 
keyword of the TASK statement is specified. For example, you may decide to 
use this field as the DD name to be opened by the subtask, or to specify a 
default operator to receive messages. 



You may use the DSIWLS macro to write messages to the NCCF disk log from 
the subtask. See Chapter 3 for more information on DSIWLS. Hardcopy 
logging may not be started for user-written subtasks. 



When a subtask starts, it should use the DSIMQS macro to send success or 
failure messages to the operator who started the subtask. The operator 
identifier is passed to the subtask in the TIBMSGNM field of DSITBB. If the 
subtask was started by the main task, TIBMSGNM contains zeros. Once the 
subtask is operating, further messages are sent to the operator specified by the 
subtask, which may vary depending on whom you want to receive the messages. 

All messages must use standard NCCF buffer format, consisting of a properly 
initialized buffer header (BUFHDR) including the extension, followed by the 
message text. The buffer header is described in Chapter 3. 



The subtask may be coded to receive messages from other subtasks (or from 
itself) that are sent using the DSIMQS macro. 

All of the buffers transfered from one subtask to another with DSIMQS have 
the same buffer format. The buffer extension contains a queuing pointer field 
and the operator identifier (TVBOPID) of the sender, which may be used to 
return data or messages to the sender. 

Your subtask may process buffers of any format. The value in the 
HDRMTYPE field of the buffer header indicates the format and contents of the 
buffer. When the HDRMTYPE field is set to the character "I" (HDRTYPEI), 
the buffer is an internal function request (IFR). For an IFR, the two bytes 
following the HDRMCEXT tell the format of the rest of the buffer. 
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IFRCODE=3 indicates that the remainder of the buffer is a command (see 
"Command Processing" later in this chapter.) IFRCODE=8 is reserved for you 
to define. (The only NCCF subtasks coded to handle IFRTYPE=8 are the 
OST and the NNT; the IFR is passed to the DSIEX13 exit routine for these 
two subtasks.) 

Because the DSIMQS macro is used to transmit messages to many different 
subtasks, care must be taken when receiving message buffers. The DSIMQS 
macro will handle situations such as main line interruption, simultaneous 
processing in separate subtasks, and parallel processing in multiprocessor 
environments. To maintain reliability in situations sucjk as these, the subtask 
should follow these rules when receiving messages: 

Wait until the TVBMECB (DISMQS event contrSl block) has been posted 

Make sure that all previously received buffers have been processed. 

Set TVBMECB to zero. — 

Use the assembler Compare and Swap instruction (CS) to obtain the queue 
of buffers from TVBMPUBQ and place zeros in TVBMPUBQ. 

Reverse the order of the queue to first-in-first-out (FIFO). 

Store the address of the queue of buffers in TVBMPRIQ. 

n assembler language, this process would be (assume registers named A, B, and 
C): 



DSIWAT [ECB LIST INCLUDES 





TM 


TVBMECB, X' 40* 




BNO 


elsewhere 




CLC 


TVBMPRIQ , -F ' ' 


* 


BNZ 


some-processing 


REMOVE 


XC 


TVBMECB , TVBMECB 


MSGDEQ 


SLR 


B,B 




L 


A , TVBMPUBQ 




CS 


A, B, TVBMPUBQ 




BNE 


MSGDEQ 




USING 


BUFHDR,A 


REVERSE 


L 


CHDRNEXTM 




ST 


B,HDRNEXTM 




LR 


B,A 




LTR 


A,C 




BNZ 


REVERSE 




ST 


B, TVBMPRIQ 



TVBMECB] 
IS THE DSIMQS ECB POSTED 
BRANCH IF NOT POSTED 
IS PRIVATE ANCHOR EMPTY 
BRANCH IF BUFFERS ARE STILL ANCHORED 
RETURN TO 'REMOVE' WHEN TVBMPRIQ=0 
ZERO THE ECB 
ZERO SWAP REGISTER 
LOAD THE COMPARAND REGISTER 
CS ZERO ONTO THE QUEUE 
RETRY IF TVBMPUBQ CHANGED 
REG A NOW POINTS TO TOP BUFFER 
REVERSE. . . 
THE. . . 

QUEUE... 

ORDER. TEST FOR END OF QUEUE. 
BRANCH IF NOT END OF QUEUE 
BASE FIFO QUEUE FROM PRIVATE ANCHOR 



Freeing DSIMQS Buffers 



Buffers transferred with DSIMQS are obtained with DSIGET Q*NO. When 
your subtask frees these buffers, use DSIFRE Q=NO. During subtask 
termination, after the TVBOPID field is set to blanks and TVBACTV is set to 
zeros, the TVBMPUBQ and TVBMPRIQ should be checked for buffers. If a 
queue is found, the buffers should be processed and freed. 



6-8 



Command Processing 

In order to execute commands in your subtask, the command processor has to 
be designed to run in your optional subtask environment. NCCF command 
processors are designed to run under NCCF subtasks such as OST, NNT, PPT 
or DST. You may want to avoid coding a command processor by handling 
processing with a subroutine. If you want to define commands with CMDMDL 
statements so that you may use DSICES or DSIPAS macro instructions, the 
command processor must be defined as TYPE=D or TYPE=RD. Command 
lists, immediate commands, and regular commands may not be invoked within 
the subtask. 

If an IFR type 3 is received through the DSIMQS macro, the buffer contains a 
command. To process the buffer, follow this procedure: 

1. Add 2 to the HDRTDISP value, and subtract 2 from the HDRMLENG 
value. This moves the displacement past the IFR so that all commands 
appear the same to the command processor. 

2. Issue the DSIGET macro to obtain a parse descriptor block (PDB), if 
necessary. 

3. Issue the DSIPRS macro to parse the buffer 

4. Issue the DSILCS macro to obtain a command work block (CWB) 

5. Issue the DSICES macro to look up the command in the NCCF command 
table. 

The command can now be called. When the command returns, issue the 
DSILCS macro to free the DSICWB, and the DSIFRE macro to free the PDB. 

Control Block Considerations 

The following control block fields are useful when writing a subtask. 

Note: In the control block discussions that follow, the sequence of fields may not 
directly correspond to the field sequence in the actual DSECT. Appendix C 
contains the control block listings. 



Main Vector Table (MVT) 



The main vector table is the main control block for information throughout 
NCCF. There is one DSIMVT for each NCCF. From a subtask, the DSIMVT 
can be located through a pointer in the TVB (TVBMVT). 

Field Description 

MVTCBH Is a standard NCCF control block header 

MVTDPRAD (VSE only) Points to the NCCF VSE dispatcher 

(DSIDPR). This field should be referenced by NCCF 
service macros only. 

MVTSVL Contains the address of the service vector list (DSISVL) 

which contains the addresses of the NCCF service 
routines. 
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Field 

MVTTVB 

MVTNCCFQ 

MVTTVBRN 

MVTCLOSE 

MVTDRTRY 
MVTMRC 

MVTTCNT 
MVTMLGON 

MVTCDSES 



MVTCURAP 
MVTCUPAL 
MVTCURAN 

MVTGMSG 

MVTTOD 

MVTUFLD 
MVTGFMG1 



Description 

Contains the address of the first TVB in the TVB chain. 

(OS/VS only) Is the QNAME value for the ENQ and 
DEQ macros. 

(OS/VS only) Is the RNAME value for the ENQ and 
DEQ macros. 

Is a flag bit indicating that the CLOSE NORMAL 
command has been issued. When this bit is on, no more 
subtasks are attached and logons are not accepted. 

Shows the number of times an input/output operation is to 
be retried before it is considered a permanent error. 

Contains the MAXABEND definition statement which 
shows the number of times an operator station task (OST) 
may abnormally terminate (abend) and be reinstated. 

Contains the number of TVBs in the TVB chain. 

Contains the value from MAXLOGON definition 
statement which specifies the maximum number of times 
invalid logon information is processed before the session 
with that terminal ends. 

Contains the value from the CDMNSESS definition 
statement which specifies the maximum number of OSTs 
in other domains that may have sessions at one time with 
this NCCF. This is the number of TVBs created for 
NCCF-to-NCCF tasks in the TVB chain. 

Contains the value from the NCCFID definition statement 
DOMAINID operand, as follows: 

(1 byte) Shows the length of the NCCFID DOMAINID 
(1-5 characters). 

(8 bytes) Contains the NCCFID DOMAINID padded with 
blanks. 

Points to a buffer containing message DSI073A 
COMMAND PROCESSOR UNABLE TO BUILD 
RESPONSE MESSAGE. 

Shows the system time-of-day clock when NCCF was 
started 

Is for customer definition and use. 

Points to a Write-to-Operator parameter list containing 
message DSI124I STORAGE REQUEST FAILED FOR 
NCCF. The message may be used by any WTO macro 
with MF=E. No additional storage is required. The 
routing code is (2,11); the descriptor code is 11. 
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Field Description 

MVTGFMG2 Points to a Write-to-Operator parameter list containing 

message DSI125I CRITICAL STORAGE SHORTAGE 
FOR NCCF. The message may be used by any WTO 
macro with MF=E. No additional storage is required. 
The routing code is (2,11); the descriptor code is 11. 

MVTMETH Indicates whether the access method is ACF/VTAM (V) 

or ACF/TCAM (T). 

MVTTPROC (ACF/TCAM only) Contains the value of the 

ACF/TCAM TPROCESS name (See MVTCURAN). 



Task Vector Block (DSITVB) 



The task vector block is used by NCCF to represent a subtask. When NCCF is 
started, one TVB is acquired for each subtask. The TVBs are chained together 
through the TVBNEXT field, and the beginning of the chain is pointed to by 
MVTTVB. 



Field 
TVBCBH 



Description 

Is a standard NCCF control block header. It contains a 
CBHTYPE byte used to indicate the subtask type, as 
follows: 



X'OO' 


PPT 


x'or 


NNT 


X'02' 


OST 


X'03' 


HCT 


X'04' 


TCT 


X'05' 


Optional subtask 



To distinguish between different types of optional 
subtasks, examine the TVBMODNM field. 

TVBNEXT Points to the next TVB on the TVB chain. The TVB 

chain is anchored from MVTTVB. 

TVBTIB Points to the TIB for the subtask. 

TVBTCB Contains the OS/VS task control block (TCB) address or 

the NCCF VSE pseudo-TCB address for the subtask. 

TVBMVT Points to the DSIMVT. 

TVBTECB Is the event control block (ECB) used to notify the 

subtask that shutdown is requested as soon as possible. 
This ECB should be included in every subtask ECB list. 
A subtask may use this ECB to cause itself to shutdown. 

TVBMECB Is the ECB used to notify the subtask that a message or a 

queue of messages has been sent using the DSIMQS 
macro. 

TVBMPUBQ Contains the queue of buffers containing the message sent 

to the subtask using the DSIMQS macro. 

TVBMPRIQ May be defined by the subtask. 
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The following bit fields are used by the subtask. Some of these flag bits are 
defined by the subtask; others are defined by the main task. 



Field 

TVBIND1 
TVBTERM 



TVBIND2 

TVBVCLOS 
TVBIND3 

TVBACTV 

TVBLGON 
TVB T GOFF 
TVBRESET 

TVBRCVAI 

TVBINXIT 
TVBTCODE 

TVBMTCOD 

TVBPTCOD 
TVBNTCOD 
TVBHCUSE 

TVBLUNAM 



Description 



1 indicates that normal subtask termination has occurred. 
The subtask has released all resources. This bit must be 
supported by the subtask. 

If the bit is set on by the main task before attaching the 
subtask, it indicates to the subtask that is has been 
attached for cleanup. The subtask is to release all 
resources and return control to the main task with this bit 
still set. 



May be defined by the subtask. 



1 indicates that the subtask is active. This bit is set by the 
subtask. While this bit is on, messages may be sent to the 
subtask using the DSIMQS macro. 

1 indicates that the subtask is starting. 

1 indicates that the subtask is shutting down upon request. 

1 indicates that regular commands should stop processing 
immediately. If your subtask does not run under a 
command processor, you may redefine this flag. 

This flag bit may be defined by the subtask. For an OST 
or NNT, 1 indicates that RECEIVE ANY for 
cross-domain sessions has been issued. 

1 indicates that an IRB exit routine is running. This bit is 
required in VSE. 

Used for problem analysis. When a subtask terminates, 
these fields may be set to indicates the reason for the 
termination, as follows: 

Indicates the module that decided to terminate the subtask 
(for values, see the DSITVB constants shown in Appendix 
C). 

Indicates that the subtask is about to terminate because 
TVBTECB was posted. 

Is a unique number that indicates where in each module 
the decision to terminate was made. 

May be defined by the subtask. For an HCT, this field is 
used to track how many subtasks are currently using the 
hardcopy subtask. 

Is the value specified in the TSKXD operand of the TASK 
definition statement. This field is initialized before the 
subtask is attached. 
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Field 
TVBOPID 

TVBUFLD 
TVBEXITQ 

TVBTASKQ 

TVBMODNM 

TVBMEMNM 



Task Information Block (DSITIB) 



Description 

Is the unique subtask identifier. This name may be the 
same as TVBLUNAM. It is set up by the subtask when 
initialization is complete. 

Is a user field that may be defined by the subtask. 

Is a queue of storage obtained in an IRB exit routine 
(DSIGET Q=YES,EXIT=YES). 

Is a queue of storage obtained under mainline processing 
(DSIGET Q=YES,EXIT=NO). 

Is the name of the module to be attached as a subtask as 
specified in the MOD parameter of the TASK definition 
statement. This field may be used to determine the type 
of an optional subtask. 

Is initialized with the MEM parameter of the TASK 
definition statement. It may be the name of the member 
or B book of the DSIPARM data set that contains the 
initialization parameters for an optional subtask. 



The task information block is used by NCCF to keep information about an 
attached subtask. DSITIB is acquired and freed by the main task. The fields 
described below are those of interest to an optional subtask: 



Field 
TIBCBH 



Description 

Is a standard NCCF control block header. The CBHTYPE 
field is the same as the CBHTYPE for TVB. 



TIBTVB 



TIBACB 



TIBEXLST 



TIBELT 



TIBAPID 



Points Points to the DSITVB. The address of DSIMVT can 
be obtained from DSITVB; DSIMVT can be used to locate 
all other NCCF control blocks. 

May be defined by the subtask. For NCCF subtasks, this 
field points to an ACF/VTAM ACB. 

May be defined by the subtask. For NCCF subtasks, this 
field is used to locate the ACF/VTAM EXLST. 

It is recommended that this field be used to point to the 
NCCF subtask ECB list. 

May be defined by the subtask. For NCCF subtasks, this 
field contains the ACF/VTAM application program name 
for the subtask. 



TIBAPWD May be defined by the subtask. For NCCF subtasks, this 

field contains the ACF/VTAM password. 
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Field 

TIB ARE A 1 

TIBUFLD 
TIBTBFFY 
TIBOSEXT 

TIBOSLST 
TIBXECB 



TDBSAVES 

and 

TIBSAVEE 

TIBNDATD 

and 

TIBEDATD 



Description 

May be defined by the subtask. For NCCF subtasks, this 
field is used to point to other control blocks such as CWBs, 
SWBs, or PDBs. 

May be defined by the subtask. This field is not referenced 
or changed by NCCF. 

May be defined by the subtask. This field is used by OST 
and NNT only. 

May be used to point to an optional subtask extension to 
DSITIB. The optional subtask is responsible for freeing any 
storage pointed to by this area. 

Is used by the LIST command processor to display the 
status of an optional subtask. 

May be defined by the subtask. NCCF uses this field as an 
ECB for cross-domain communication in OST and NNT. 

Are both 72-byte save areas for the subtask to use. 



Are both 256-byte scratch areas for the subtask to use. 



TIBMSGNM 



Sample User- Written Subtask 



Is the operator identifier of the subtask that issued the 
START TASK command. If the subtask was started 
automatically (INIT=YES), the field contains zeros. 



The following is an example of a user-written subtask. This subtask is not 
executable as shown; it is provided as an example only. 
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-'-MODULE NAME: SUBTASK 

-^DESCRIPTIVE NAME: SKELETON NCCF SUBTASK MODULE 
-''FUNCTION: TO DEMONSTRATE NCCF SUBTASK PROCEDURES. 
-'-REGISTER CONVENTIONS: SEE REGISTER EQUATES. 

-'-MODULE TYPE: MAIN PROGRAM, TO BE ATTACHED BY NCCF. 

* LANGUAGE: ASSEMBLER 

-'- MODULE SIZE: SEE ESD IN LISTING 

* ATTRIBUTES: REENTRANT 

GENTRY POINT: SUBTASK 

* PURPOSE: TO DO NCCF SUBTASK FUNCTION. 

* LINKAGE : 

* INPUT: 

* REGISTERS: R1=TVB ADDRESS 

* R13=SAVE AREA ADDRESS 
-'- R14=RETURN ADDRESS 

-'- R15=ADDR OF ENTRY POINT 'SUBTASK' 

* OTHER: TVB FIELDS: 



TVBTIB 
TVBMVT 
TVBTERM 
TVBLUNAM 

TIB FIELDS: 
TIBMSGNM 
TIBTVB 

MVT FIELDS: 
MVTTVB 
MVTNCCFQ 
MVTTVBRN 
MVTSVL 



TIB ADDRESS 

MVT ADDRESS 

NORMAL/ CLEANUP ATTACH FLAG 

SUBTASK RESOURCE NAME 

OPID OF STARTING OPERATOR OR ZERO 
POINTER TO TVB 

TVB CHAIN POINTER 

NCCF ENQ/DEQ QNAME 

TVB CHAIN ENQ/DEQ RNAME 

POINTER TO THE SVL (USED BY NCCF MACROS) 



''-EXIT NORMAL: 

* PURPOSE: NORMAL END OF SUBTASK. 

* LINKAGE: RETURN TO CALLER 
-'- OUTPUT: 

* REGISTERS: 

* UNCHANGED REGISTERS: ALL REGISTERS EXCEPT R15 

* OUTPUT REGISTERS: R15 CONTAINS A RETURN CODE 0. 

* OTHER: TVB AND TIB ARE INTACT. 

*EXIT ERROR: NONE 

-'-CONTROL BLOCKS: 

* NCCF CONTROL BLOCKS: DSICBH 

DSIMVT 

* DSISVL 

* DSISWB 

* DSITIB 

* DSITVB 

* INTERNAL CONTROL BLOCKS: DATD, THE TIB WORK AREA DSECT. 
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''-MACROS ISSUED: 

* SYSTEM MACROS: DEQ 

* ENQ 

* NCCF MACROS: DSICBS 

* DSIFRE 

* DSILCS 

* DSIMBS 

* DSIMQS 

* DSIWAT 

^MESSAGES ISSUED: 

* DSI068I USER &1 ALREADY LOGGED ON 
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SUBTASK CSECT , 

DSICBS DSITVB,DSITIB,DSIMVT,DSISVL,DEFER=ALL 



TASKINIT: 

FUNCTION IS TO HANDLE SUBTASK INITIALIZATION. 
PERFORM ENTRY LINKAGE. 
INITIALIZE THE ECB-S AND ECBLIST. 
ISSUE DSILCS TO GET AN SWB . 
IF UNSUCCESSFUL 
THEN 

SET THE TVB TERMINATION BIT. 
ENDIF. 

CLEAR THE ERROR MESSAGE FLAG. 
IF THE SUBTASK IS NOT TERMINATING 
THEN 

ISSUE ENQ TO LOCK THE TVB CHAIN. 

ISSUE DSILCS TO SCAN FOR THIS SUBTASK-S NAME. 

IF THE NAME WAS FOUND 

THEN (THERE IS A DUPLICATE) 

SET AN ERROR MESSAGE FLAG. 
ELSE (THE NAME IS UNIQUE) 

MOVE THE SUBTASK NAME TO THE OPERATOR ID FIELD 
SET THE ACTIVE SUBTASK FLAG. 
ENDIF (THE NAME WAS FOUND). 
ISSUE DEQ TO UNLOCK THE TVB CHAIN. 
ELSE (THE SUBTASK IS TERMINATING, DO NOTHING). 
ENDIF (THE SUBTASK IS NOT TERMINATING). 
IF THE ERROR MESSAGE FLAG WAS SET 
THEN 

ISSUE DSIMBS TO BUILD MESSAGE DSI068I, USER IS 

ALREADY LOGGED ON. 
ISSUE DSIMQS TO SEND THE MESSAGE TO THE OPERATOR 

WHO STARTED THIS SUBTASK. 
IF THE DSIMQS FAILED 
THEN 

ISSUE DSIMQS TO SEND THE MESSAGE TO THE 
AUTHORIZED RECEIVER. 
ELSE (THE MESSAGE WAS SUCCESSFULLY SENT). 
ENDIF (DSIMQS FAILED). 
ELSE (ERROR MESSAGE FLAG WAS NOT SET) . 
ENDIF (ERROR MESSAGE FLAG WAS SET). 
END TASKINIT. 
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ENTRY LINKAGE 



SUBTASK CSECT 
USING 
B 

DC 
DROP 

PROLOG STM 
BALR 

PSTART DS 

USING 

LR 

USING 

L 

USING 

LA 

USING 

LR 

LA 

ST 

ST 

ST 



*,R15 

PROLOG 

C* SUBTASK &SYSDATE' 

R15 

R14,R12,12(R13) 

R12,0 

OH 

PSTART, R12 

TVBPTR,R01 

DSITVB,TVBPTR 

TIBPTR,TVBTIB 

DSITIB,TIBPTR 

R10,TIBNDATD 

DATD,R10 

R14,R13 

R13,TIBSAVES 

R14,SAVAREA+4(,R13) 

R13,SAVAREA+8(,R14) 

TVBPTR,SAVAREA(,R13) 



BASE THE TVB 

SAVE INPUT PARAMETER 

BASE THE TIB 

POINT TO NORMAL PROC WORK AREA 

BASE SUBTASK WORK AREA 

SAVE CALLER -S REG 13 

POINT TO MY SAVE ARE A 

POINT MINE TO CALLER -S 

POINT CALLER-S TO MINE 

TVB ADDR IN 1ST WORD OF MY S.A. 



L MVTPTR,TVBMVT 

USING DSIMVT,MVTPTR 



BASE THE MVT 



INITITALIZE THE ECB LIST 


.•i 


SLR 


R02,R02 


ZERO WORK REG 


ST 


R02,TVBTECB 


ZERO TERMINATION ECB 


ST 


R02,TVBMECB 


ZERO MESSAGE RECEIVER ECB 


ST 


R02,USERECB 


ZERO USER ECB 


LA 


R02,TVBTECB 


INITIALIZE. . . 


ST 


R02,ECBLIST 




LA 


R02,TVBMECB 


THE . . . 


ST 


R02,ECBLIST+4 




LA 


R02,USERECB 


ECBLIST 





R02,ENDOLIST 


MARK AS END OF ECBLIST 


ST 


R02,ECBLIST+8 
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GET AND INITIALIZE AN SWB 



DSILCS CBADDR=TIBNPSWB,SWB=GET GET AN SWB 



LTR R15,R15 

BNZ NOSWB 

L R02,TIBNPSWB 

USING DSISWB,R02 

ST TIBPTR,SWBTIB 

DROP R02 

B ENDSWB 



WAS ONE GOTTEN? 

NO, BRING DOWN THE SUBTASK 

SET THE TIB ADDRESS IN THE SWB 

BASE THE SWB 

STORE THE TIB ADDRESS 

DROP SWB COVER 

CONTINUE 



NOSWB 01 TVBIND1,TVBTERM 

ENDSWB DS OH 



TERMINATE THE SUBTASK 
END OF SWB INITIALIZATION 



* IF INITIALIZATION IS SUCCESSFUL, MARK THE SUBTASK ACTIVE * 

TM TVBIND1,TVBTERM IF THE SUBTASK IS NOT TERMINATING 

BNZ ENDINIT BRANCH IF TERMINATING 

* > LOCK THE TVB CHAIN WHILE ADDING THIS SUBTASK ID 

MVC ENQWORK(ENQLN),ENQLIST MOVE LIST FORM TO WORK AREA 
ENQ (MVTNCCFQ,MVTTVBRN,E,18,STEP) ,MF=(E,ENQWORK) 

SLR ERMSGNO,ERMSGNO CLEAR THE ERROR MSG NUMBER 

DSILCS OPID=TVBLUNAM, SEARCH FOR THIS SUBTASK-S NAME 

TVB=MVTTVB, STARTING AT THE TOP OF THE CHAIN * 

CBADDR=DUPTVB PUT THE ADDRESS HERE 

LTR R15,R15 IF A TVB WAS FOUND, THAT IS BAD 

BNZ UNIQUE BRANCH IF UNIQUE 

DUPNAME DS OH OTHERWISE 

LA ERMSGN0,68 USER ALREADY USING THIS NAME 

B UNLOCK UNLOCK TVB CHAIN AND EXIT 

UNIQUE DS OH 

MVC TVBOPID,TVBLUNAM PUT THE USERID IN TVB 

01 TVBIND3,TVBACTV MARK TVB AS ACTIVE 

UNLOCK DS OH 

* > UNLOCK THE TVB CHAIN 

MVC ENQWORK(DEQLN),DEQLIST COPY THE DEQ PARMLIST 
DEQ (MVTNCCFQ,MVTTVBRN, 18, STEP) ,MF=(E,ENQWORK) 
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IF AN ERROR WAS DETECTED WHILE LOCKED, PUT A MESSAGE OUT NOW 



LTR ERMSGNO,ERMSGNO 

BZ ENDINIT 

01 TVBIND1,TVBTERM 

LA R02, BUFFER 

USING BUFHDR, RO 2 

LA R 14, L' BUFFER 

STH R14,HDRBLENG 

MVI HDRMTYPE , HDRTYPEU 

LA R 14 , BUFHDRND -BUFHDR 

STH R14,HDRTDISP 



WAS AN ERROR DETECTED? 
NO, CONTINUE 
TERMINATE THE SUBTASK 
POINT TO ERROR MSG BUFFER 
SET TEMPORARY BASE 
GET THE BUFFER LENGTH 
SET THE BUFFER LENGTH 
SET BUFFER TYPE = USER MSG 
GET OFFSET TO TEXT 
SET TEXT DISPLACEMENT 



DSIMBS MID=068,BFR=(R02),SWB=TIBNPSWB BUILD MSG DSI068I 
DSIMQS TASKID=TIBMSGNM,BFR=(R02),SWB=TIBNPSWB SEND TO OPER 



LTR R15,R15 
BZ ENDINIT 



WAS THE STARTING OPERATOR THERE? 
YES, CONTINUE TERMINATING 



DROP R02 
ENDINIT DS OH 



DSIMQS AUTHRCV=YES,BFR=(R02),SWB=TIBNPSWB SEND IT TO AUTHRCV 

DROP BUFHDR COVER 
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ECBPROCR: 



FUNCTION IS TO WAIT ON THE ECB-S AND SERVICE THOSE 

THAT ARE POSTED. 
DO WHILE THE TVB TERMINATION BIT IS NOT SET. 
ISSUE DSIWAT TO WAIT ON THE ECB LIST. 
IF THE TVB TERMINATION ECB IS POSTED 
THEN 

SET THE TVB TERMINATION BIT. 
ENDIF (TERMINATION ECB POSTED). 
IF THE DSIMQS MESSAGE ECB IS POSTED 
THEN 

CALL MSGPROCR TO INSURE THE TVB PRIVATE QUEUE 

IS CLEAR. 
CLEAR THE TVB MESSAGE ECB. 
DEQUEUE THE MESSAGE BUFFER QUEUE FROM THE 
TVB MESSAGE PUBLIC QUEUE WITH COMPARE 
AND SWAP. 
REVERSE THE ORDER OF THE DEQUEUED CHAIN OF 

BUFFERS FROM LIFO TO FIFO. 
ANCHOR THE FIFO QUEUE ON THE TVB PRIVATE 

MESSAGE QUEUE. 
CALL MSGPROCR TO PROCESS THE PRIVATE QUEUE. 
ENDIF (THE MESSAGE ECB IS POSTED). 
IF THE USER ECB IS POSTED 
THEN 

DO USER PROCESSING. 
ENDIF (THE USER ECB IS POSTED). 
ENDDO (WHILE TVB TERMINATION BIT IS NOT SET). 
END ECBPROCR. 



ECBPROCR DS OH 

B LOOPTEST 



LOOP UNTIL SHUTDOWN 



LOOPTOP DS OH 

DSIWAT ECBLIST=ECBLIST 



WAIT FOR SOMETHING TO DO 



DETERMINE WHICH ECB WAS POSTED 












* TEST THE TERMINATION ECB IN THE TVB * 



TESTTERM TM TVBTECB,TIBECBPO 

BNO TESTMQS 

01 TVBIND1,TVBTERM 

B LOOPTEST 



IF TERMINATION IS POSTED 

NO, TEST FOR MESSAGE RECEIVED 

TERMINATE THE SUBTASK 

GO TO THE BOTTOM OF THE LOOP 
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TEST THE DSIMQS MESSAGE RECEIVED ECB IN THE TVB 



.<..i..u>t..t.. 



.<..)..(..>..(..< 



TESTMQS TM 
BNO 



REMOVE 
MSGDEQ 



REVERSE 



BAL 

XC 

SLR 

L 

CS 

BNE 

USING 

L 

ST 

LR 

LTR 

BNZ 

ST 

DROP 

BAL 



TVBMECB,TIBECBPO 

TESTUSER 

R14,MSGPR0CR 

TVBMECB,TVBMECB 

R00,R00 

R02,TVBMPUBQ 

R02,R00,TVBMPUBQ 

MSGDEQ 

BUFHDR,R02 

R01,HDRNEXTM 

ROO,HDRNEXTM 

R00,R02 

R02,R01 

REVERSE 

ROO,TVBMPRIQ 

R02 

R14,MSGPR0CR 



IF DSIMQS INPUT ECB IS POSTED 
NO, SEE IF USER ECB IS POSTED 
CALL MSGPROCR 
ZERO THE ECB 
ZERO SWAP REGISTER 
LOAD THE COMPARAND REGISTER 
CS ZERO ONTO THE QUEUE 
RETRY IF TVBMPUBQ CHANGED 
REG R02 NOW POINTS TO TOP BUFFER 
REVERSE . . . 
THE . . . 
QUEUE . . . 
ORDER. TEST FOR END OF QUEUE. 
BRANCH IF NOT END OF QUEUE 
POINT PRIVATE ANCHOR AT FIFO QUE 
DROP BUFHDR COVER 
CALL MSGPROCR TO CLEAN QUEUE 



TEST THE USER ECB 



TESTUSER TM USERECB ,TIBECBPO 

BNO LOOPTEST 
XC USERECB,USERECB 



IF USERECB IS POSTED 
NO, RESTART LOOP 
CLEAR THE POSTED ECB 



NOP 



ADD USER CODE HERE 



TEST FOR TERMINATION REQUESTED 



LOOPTEST TM 
BZ 



TVBIND1,TVBTERM 
LOOPTOP 



IS THE SUBTASK TERMINATING? 
NO, LOOP TO TOP AND WAIT 
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TASKTERM: 

FUNCTION IS TO CLEAN UP AND PREPARE TO RETURN TO THE 

MAIN TASK. 
LOCK THE TVB CHAIN. 

BLANK THE TVB USERID FIELD AND ACTIVE SUBTASK FLAG. 
UNLOCK THE TVB CHAIN. 
CALL MSGPROCR ROUTINE TO PURGE MSGS ON THE 

PRIVATE QUEUE. 
DEQUEUE ALL MESSAGES ON THE PUBLIC MESSAGE QUEUE 

WITH COMPARE AND SWAP. 
ANCHOR THE MESSAGES ON THE PRIVATE BUFFER QUEUE. 
CALL MSGPROCR ROUTINE TO PURGE MSGS ON THE 

PRIVATE QUEUE. 
ISSUE DSIFRE FOR ALL EXIT QUEUED STORAGE. 
ISSUE DSIFRE FOR ALL TASK QUEUED STORAGE. 
SET THE RETURN CODE FOR THE MAIN TASK INTO REG 15. 
END TASKTERM. 
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* > LOCK THE TVBCHAIN 

MVC ENQWORK (ENQLN),ENQLIST 

ENQ (MVTNCCFQ , MVTTVBRN , E , 18 , STEP ) , MF= (E , ENQWORK) 

MVC TVBOPID, BLANKS BLANK OUT USERID 

NI TVBIND3,TVBACTV INDICATE TVB NOT ACTIVE 

* > UNLOCK THE TVBCHAIN 

MVC ENQWORK (DEQLN) ,DEQLI ST 

DEQ (MVTNCCFQ, MVTTVBRN, 18, STEP) ,MF=(E, ENQWORK) 

BAL R14, MSGPROCR CALL MSGPROCR TO CLEAN QUEUE 

TERMMSG SLR R00,R00 CLEAR REG FOR COMP & SWAP 

L R02,TVBMPUBQ 

CS R02,R00,TVBMPUBQ DEQ ALL MSG BUFFERS 

BNE TERMMSG IF SOMETHING CHANGED, RETRY IT 

ST R02,TVBMPRIQ SAVE THE BUFFER STRING. 

BAL R14, MSGPROCR CALL MSGPROCR TO CLEAN QUEUE 



OC TIBNPSWB,TIBNPSWB IF AN SWB WAS GOTTEN 

BZ FREEQSTG 

DSILCS CBADDR=TIBNPSWB,SWB=FREE FREE THE SWB 

XC TIBNPSWB,TIBNPSWB CLEAR THE SWB POINTER 
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* FREE STORAGE GOTTEN WITH DSIGET Q=YES 



FREEQSTG 


HKhh 
DS 


ALL LAiT gULULU bi( 

OH 




B 


FREEXIT1 


FREEXIT 


DS 


OH 




LA 


R02,16 




AL 


R02,TVBEXITQ 




DSIFRE A=(R02), 






LV=0, 






SP=0, 






EXIT=YES, 






TASKA=(TVBPTR), 






LISTA=FRELST, 






Q=YES 


FREEXIT1 


DS 


OH 




OC 


TVBEXITQ,TVBEXITQ 




BNZ 


FREEXIT 



TEST FOR ZERO QUEUE 

QUEUE NOT ZERO 

BLOCK ADDRESS STARTS AT 16 PAST 

THE QUEUE ANCHOR VALUE 
FREE BLOCK ADDRESSED BY R02 
DSIFRE KNOWS THE LENGTH 
DSIFRE KNOWS THE SUBPOOL 
STORAGE GOTTEN IN AN IRB EXIT 
TVB POINTER 
DSIFRE WORKAREA 
FREE QUEUED STORAGE 



IS THERE ANYTHING ON THE QUEUE? 
YES, LOOP UNTIL ZERO 



-A- > 


bKhh 
B 


ALL TASK qULULJJ bll 

FREETSK 1 


FREETSK 


DS 


OH 




LA 


R02,16 




AL 


R02,TVBTASKQ 




DSIFRE A=(R02), 






LV=0, 






SP=0, 






EXIT=NO , 






TASKA=(TVBPTR), 






LISTA=FRELST, 






Q=YES 


FREETSK1 


DS 


OH 




OC 


TVBTASKQ,TVBTASKQ 




BNE 


FREETSK 



TEST FOR ZERO QUEUE 

QUEUE NOT ZERO 

BLOCK ADDRESS STARTS AT 16 PAST 

THE QUEUE ANCHOR VALUE 
FREE BLOCK ADDRESSED BY R02 
DSIFRE KNOWS THE LENGTH 
DSIFRE KNOWS THE SUBPOOL 
STORAGE GOTTEN IN MAIN LINE CODE 
TVB POINTER 
DSIFRE WORKAREA 
FREE QUEUED STORAGE 



IS THERE ANYTHING ON THE QUEUE? 
YES, LOOP UNTIL ZERO 



EXIT THE SUBTASK 



»1- fc f«, •»- -I- .T„t,. 



L R13,SAVAREA+4(,R13) 

SR R15,R15 

L R14,12(,R13) 

LM R00,R12,20(R13) 

BR R14 



RESTORE SAVE ARE A ADDR 

SET A ZERO RETURN CODE 

RETURN TO THE OPERATING SYSTEM 
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_T_ »t_ ^ _>_ _t_ _1_ _t_ _t T_ _1_ _tj. _t_ ^1- -I_ _t_ _1_ ^t_ _T. -Tj. _t_ ^. _t_ _T_ ^t_ _t t ^ ^I_ _t_ ^t^ _^ - VV" ~' ' ' '^ ~' ' '" ~*" "~*" "^ -V -'" ' ' V -' ' '- VC" ~* ' '" ~V -'" -' *" -'- -' *- -*- V" -t " "■'" ■!*--' *- -*- 

* MSGPROCR: SUBROUTINE. 

FUNCTION IS TO PROCESS MESSAGE BUFFERS SENT VIA DSIMQS 

* AND FREEMAIN THE BUFFERS. 

* SAVE THE CALLER-S REGISTERS. 

* DO WHILE THERE ARE MESSAGES ON THE PRIVATE QUEUE. 

* IF THE SUBTASK IS NOT TERMINATING 

* THEN 

* DO YOUR THING WITH THE BUFFER HERE. 

ELSE (TERMINATING, DO NOT PROCESS). 

END IF. 

* ISSUE DSIFRE TO FREEMAIN THE MESSAGE BUFFER. 

* ENDDO (DO WHILE MESSAGES EXIST). 
RESTORE THE CALLER-S REGISTERS. 

* RETURN TO CALLER. 

* END MSGPROCR. 

MSGPROCR DS OH 

STM R14,R01,SUBRSAVE SAVE REGS 

* -> DO WHILE THERE ARE QUEUED MSGS 

B MSGLOOP1 

MSGLOOP DS OH 

TM TVBIND1,TVBTERM IS THE SUBTASK TERMINATING? 

BO MSGFREE YES, ONLY FREE THE BUFFER 

* IF YOU WANT TO DO SOMETHING WITH THE MESSAGE BUFFER, DO IT HERE! 

* NOTE: THE TOP BUFFER ON THE QUEUE IS LOCATED BY TVBMPRIQ. 

MSGFREE L R02, TVBMPRIQ POINT TO THE FIRST BUFFER 

L R08,HDRNEXTM-BUFHDR(,R02) ANCHOR THE NEXT MESSAGE 

ST RO 8, TVBMPRIQ 

LH R09,HDRBLENG-BUFHDR(,R02) GET THE BUFFER LENGTH 

DSIFRE R,A=(R02), FREE BUFFER SENT VIA DSIMQS 

LV=(R09), LENGTH FROM BUFHDR IS IN R09 

SP=0 DSIMQS BUFFERS ARE IN SUBPOOL 

MSGLOOP 1 OC TVBMPRIQ, TVBMPRIQ IS ANYTHING LEFT ON THE QUEUE 

BNZ MSGLOOP YES, LOOP UNTIL DONE 



LM R14,R01,SUBRSAVE 

BR R14 



RESTORE REGS 
RETURN TO CALLER 



•> END MSGPROCR 
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.J~J-J-JLJ—! 



•t-»l-.t.»U«t«>».'-»t-»>.J.»l..l-.»'—l,.t-J,J..l— t-J.J..I..I.«l..t„l..<„<..t.^ 



»t.«l..t— 1..1..1—1— 



CONSTANTS 



J..J...I.J..U.J-. 



.l..».J..l.J... 



DS OF 

ENDOLIST DC XL4' 80000000' 



END OF ECBLIST FLAG 



BLANKS DC 

ENQLIST ENQ 

ENQLN EQU 

DEQLIST DEQ 

DEQLN EQU 



CL8' 

(,,,,), MF=L 
''"-ENQLIST 
(,,,), MF=L 
-'--DEQLIST 



8 BLANKS 

LIST FORM ENQ 

LENGTH OF LIST FORM ENQ 

LIST FORM DEQ 

LENGTH OF LIST FORM DEQ 



SAVAREA EQU 



OFFSET TO SAVEAREA 



REGISTER EQUATES 



, Jl* »t- ..t- J- JU Jl~ -t. b t„ Jt* , 



ROO 


EQU 


00 


R01 


EQU 


01 


R02 


EQU 


02 


R03 


EQU 


03 


R04 


EQU 


04 


R05 


EQU 


05 


R06 


EQU 


06 


R07 


EQU 


07 


R08 


EQU 


08 


R09 


EQU 


09 


RIO 


EQU 


10 


Rll 


EQU 


11 


R12 


EQU 


12 


R13 


EQU 


13 


R14 


EQU 


14 


R15 


EQU 


15 


TVBPTR 


EQU 


R03 


MVTPTR 


EQU 


R04 


TIBPTR 


EQU 


R05 


ERMSGNO 


EQU 


R06 



EQUATES FOR REGISTERS 0-15 
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»i».l..V" , «'-- , « '-«t-«t«.«. J 



..U..'-«U..t..>.J..J..t.«t...U«t..t..l.J..V..J»..t».t...t...t...I...I..J.J^ 



TIB WORKAREA OVERLAY 



»U.l—V- , ~ , ~'— ■'—■'"'«'■— '-- '— '— . t.»»-.l-J-»L..t— t.J 



JUJUJUJUJL^X.AJ^hJmJU.lmJUJUJI^JmJ^JUJUJUJImJUJt.JUJL.JUJUJUJI.JUJ. 



DATD 


DSECT 




USERECB 


DS 


F 


ECBLIST 


DS 


3A 


BUFFER 


DS 


0CL132 


ENQWORK 


DS 


CL12 


FRELST 


DS 


CL14 


DUPTVB 


DS 


A 


SUBRSAVE 


DS 


4A 



USER ECB (USE NOT SHOWN HERE) 

ECB LIST FOR THIS SUBTASK 

ERROR MESSAGE BUFFER 

ENQ/DEQ WORK AREA (WORD BOUNDARY) 

DSIFRE WORK AREA (WORD BOUNDARY) 

WORD FOR TVB SEARCH 

MSGPROCR SAVE AREA FOR R14-R01 



INCLUDE NCCF CONTROL BLOCK DSECTS 



SUBTASK CSECT 

DSICBS DEFER=INCLUDE 
SUBTASK CSECT 

END SUBTASK 
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Appendix A. Command Summary 



This appendix summarizes all of the commands related to NCCF. The first 
chart shows commands related to NCCF under ACF/VTAM and 
ACF/VTAME. The second chart shows commands related to NCCF under 
ACF/TCAM. Commands are listed in alphabetical order. 

The second column indicates whether the command is regular (R), immediate 
(I), both regular and immediate (B), regular and data services (RD), or not 
applicable for the command type(N). 

The third column indicates whether or not the command can be restricted by 
span of control. 

The next five columns indicate the places from which the command may be 
issued. The column headings are as follows: 

Terminal. The operator may issue the command at the 

physical operator station. 

Command list. The command may be used in a command list. 

System console. The command may be entered from the system 

console to NCCF. 

Command processor. The command may be issued by a command 

processor to NCCF. 

PPT The command may be executed under the primary 

POI task. 

The numbers in the columns refer to the notes that follow the table. 
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ACF/VTAM and NCCF Command Summary 



Command 


Type 


SPAN 
Applies 


Issued From 


To 

e 

E 


•tJ 
c 

(0 

u 


El 

** e 
iff 2 

> o 


Is 
1 g 

E 8 

$1 


H 
Q. 

a. 


AGAIN 


1 


NO 


YES 


NO 


NO 


NO 


NO 


AT 


R 


2 


YES 


YES 


NO 


NO 


YES 


AUTOWRAP 


B 


NO 


YES 


YES 


NO 


NO 


NO 


BGNSESS* 


R 


NO 


YES 


YES 


NO 


YES 


NO 


CANCEL 


B 


NO 


YES 


YES 


NO 


NO 


NO 


CLEAR key 


B 


NO 


YES 


YES 


NO 


NO 


NO 


clistname 


R 


2 


YES 


YES 


NO 


YES 


YES 


CLOSE 


B 


NO 


YES 


YES 


YES 


YES 


NO 


DISPLAY (ACF/VTAM) 


R 


YES 


YES 


YES 


3 


YES 


YES 


ENDSESS* 


R 


NO 


YES 


YES 


NO 


YES 


NO 


EVERY 


R 


2 


YES 


YES 


NO 


NO 


YES 


GO 


B 


NO 


YES 


YES 


NO 


NO 


NO 


HALT (ACF/VTAM) 


N 


NO 


NO 


NO 


3 


NO 


NO 


INPUT 


R 


NO 


YES 


YES 


NO 


NO 


YES 


LIST 


R 


NO 


YES 


YES 


NO 


YES 


NO 


LISTSESS* 


R 


NO 


YES 


YES 


NO 


YES 


NO 


LOGOFF 


R 


NO 


YES 


NO 


NO 


NO 


NO 


LOGOFF (ACF/VTAM) 


N 


NO 


6 


NO 


NO 


NO 


NO 


LOGON (ACF/VTAM) 


N 


NO 


7 


NO 


NO 


NO 


NO 


MODIFY (ACF/VTAM) 


R 


YES 


YES 


YES 


3 


YES 


NO 


MOVE 


R 


NO 


YES 


YES 


NO 


YES 


NO 


MSG 


R 


NO 


YES 


YES 


YES 


YES 


YES 


no data enter 


B 


NO 


YES 


YES 


NO 


NO 


NO 


PURGE 


R 


2 


YES 


YES 


YES 


NO 


YES 


REPLY (ACF/VTAM) 


R 


NO 


YES 


YES 


8 


YES 


NO 


RESET 


B 


NO 


YES 


YES 


NO 


YES 


NO 


ROUTE 


R 


NO 


YES 


YES 


NO 


YES 


NO 


RTRNSESS* 


R 


NO 


YES 


YES 


NO 


YES 


NO 


SENDSESS* 


R 


NO 


YES 


YES 


NO 


YES 


NO 


START (ACF/VTAM) 


N 


NO 


NO 


NO 


3 


NO 


NO 


START 


R 


9 


YES 


YES 


NO 


YES 


NO 


STOP 


R 


9 


YES 


YES 


NO 


YES 


NO 


SWITCH 


RD 


NO 


YES 


YES 


NO 


YES 


NO 


user command 


11 


NO 


12 


12 


NO 


YES 


12 


VARY (ACF/VTAM) 


R 


YES 


YES 


YES 


3 


YES 


YES 



* Applies only to the Terminal Access Facility. 
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ACF/TCAM and NCCF Command Summary 









Issued From 




•a 




•o . 








SPAN 


"5 

c 

| 


c 

(0 

E 




c o 
£ 8 










£ *i 


ft c 


£ 8 


H 


Command 


Type 


Applies 


0) 

1- 


3 3 


S3 


dl 


Q. 

Q. 


AGAIN 


1 


NO 


YES 


NO 


NO 


NO 


NO 


ALTER (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


AT 


R 


NO 


YES 


YES 


NO 


NO 


YES 


AUTO (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


AUTOWRAP 


B 


NO 


YES 


YES 


NO 


NO 


NO 


BGNSESS** 


R 


NO 


YES 


YES 


NO 


YES 


NO 


CANCEL 


B 


NO 


YES 


YES 


NO 


NO 


NO 


CLEAR key 


B 


NO 


YES 


YES 


NO 


NO 


NO 


clistname 


R 


NO 


YES 


YES 


NO 


YES 


YES 


CLOSE 


B 


NO 


YES 


YES 


YES 


YES 


NO 


CLOSE (ACF/TCAM) 


R 


NO 


YES 


YES 


3 


YES 


YES 


COM (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


COMMAND (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


CONTACT (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


DATA (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


DISPLAY (ACF/TCAM) 


R 


NO 


YES 


YES 


3 


YES 


YES 


ENDSESS** 


R 


NO 


YES 


YES 


NO 


YES 


NO 


EVERY 


R 


NO 


YES 


YES 


NO 


NO 


YES 


GO 


B 


NO 


YES 


NO 


NO 


NO 


NO 


HALT (ACF/TCAM) 


N 


NO 


4 


4 


3,4 


4 


NO 


HOLD (ACF/TCAM) 


R 


NO 


YES 


YES 


3 


YES 


YES 


INIT 


R 


NO 


YES 


YES 


NO 


YES 


NO 


INITS (ACF/TCAM) 


N 


NO 


5 


NO 


NO 


NO 


NO 


INPUT 


R 


NO 


YES 


YES 


NO 


NO 


YES 


LIST 


R 


NO 


YES 


YES 


NO 


YES 


NO 


LISTSESS** 


R 


NO 


YES 


YES 


NO 


YES 


NO 


LOGOFF 


R 


NO 


YES 


NO 


NO 


NO 


NO 


MANUAL (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


MODIFY (ACF/TCAM) 


R 


NO 


YES 


YES 


3 


YES 


NO 


MOVE 


R 


NO 


YES 


YES 


NO 


YES 


NO 


MSG 


R 


NO 


YES 


YES 


YES 


YES 


YES 


NET (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


NETWORK (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


no data enter 


I 


NO 


YES 


NO 


NO 


NO 


NO 


OFFLN (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


ONLN (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


PAUSE 


R 


NO 


NO 


YES 


NO 


YES 


NO 


PIUT (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


PURGE 


R 


NO 


YES 


YES 


YES 


NO 


YES 


QUEUE (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


RELEASE (ACF/TCAM) 


R 


NO 


YES 


YES 


3 


YES 


YES 


RESEND (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


RESET 


B 


NO 


YES 


YES 


NO 


YES 


NO 


ROUTE 


R 


NO 


YES 


YES 


NO 


YES 


NO 


RTRNSESS** 


R 


NO 


YES 


YES 


NO 


YES 


NO 


SEND (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


SENDSESS** 


R 


NO 


YES 


YES 


NO 


YES 


NO 


SETSQ (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


SHUTDOWN 


R 


NO 


YES 


YES 


NO 


YES 


NO 


START 


R 


NO 


YES 


YES 


NO 


YES 


NO 


START (ACF/TCAM) 


R 


NO 


YES 


YES 


3 


YES 


YES 


STOP 


R 


NO 


YES 


YES 


NO 


YES 


NO 


STOP (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


SWITCH 


RD 


NO 


YES 


YES 


NO 


YES 


NO 


TERM 


R 


NO 


YES 


YES 


NO 


YES 


NO 


TERMS (ACF/TCAM)* 


N 


NO 


10 


NO 


NO 


NO 


NO 


UNITS (ACF/TCAM)* 


R 


NO 


YES 


YES 


3 


YES 


YES 


user command 


11 


NO 


12 


12 


NO 


YES 


12 


VARY (ACF/TCAM) 


R 


NO 


YES 


YES 


3 


YES 


YES 



•Applies to extended operator control. 
f *Applies only to the Terminal Access Facility. 
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Notes: 

/. Only regular and RD commands may be repeated. 

2. The generated commands are checked; the original command is not. 

3. Goes directly to the access method, not to NCCF. 

4. Terminates ACF/TCAM, which causes NCCF to abend. 

5. Establishes an SNA session between the terminal and the device message 
handler (ACF/TCAM). 

6. Data is entered from the terminal, but is received by the access method and 
becomes available to NCCF only through the facilities of the LOGON exit 
routine (ACF/VTAM). 

7. Data is entered from the terminal but is received by ACF/VTAM and 
results in entry to the NCCF LOSTERM exit routine. 

8. Goes either directly to ACF/VTAM or to NCCF. 

9. Applies to STAR T \ STOPj RESOUR CE \ only. 

\ SPAN / 

10. Breaks the SNA session between the SNA device and the device message 
handler (ACF/TCAM). 

11. Defined by user as R, 1, B, D, or RD. 

12. Depends on user definition. 
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Appendix B. NCCF Log and Hard-Copy Log 



NCCF Log 



NCCF provides a means of recording on a disk all messages and commands that 
are received or sent. The write-log routine (DSIWLM) records the information 
in the order that is received. 

Two VSAM disk log data sets may be defined, a required primary data set and 
an optional secondary data set. The NCCF disk log is maintained on the 
primary VSAM file, which is opened for output at initialization. The user must 
have INIT=Y in the DSTINIT statement for DSILOG, or must issue START 
TASK=DSILOG to initiate logging. When the end of the primary file is 
reached, logging is automatically switched to a secondary file, if one has been 
defined. The user can also control switching from one disk log data set to the 
other by means of the SWITCH command. (See NCCF Terminal Use for more 
details on this action.) When logging is switched, the primary file is closed and 
may be printed in batch mode while NCCF continues logging on the secondary 
file. The file may be printed using the NCCF utility program (DSIPRT), system 
utilities, or user-written programs. If the end of the secondary file is reached 
before the primary file is printed, logging stops. 

If I/O errors occur, logging is terminated and the authorized operator is 
notified. If the user is currently logging on the primary data set, and the 
secondary is specified, NCCF automatically switches to the secondary data set. 
If the user is logging on the secondary data set, or no secondary is specified, the 
data set is closed and logging terminates. During NCCF execution, if storage is 
not available for logging routines, records are not sent to the log. The 
authorized operator is notified of the storage shortage. 

For information on how to format and print the NCCF log, see Appendix B of 
NCCF Installation. 

Figure B-l shows the format of each disk record in the log. An example of the 
printed NCCF log is shown in Figure B-2. 



NCCF Hard-Copy Log 



The NCCF hard-copy log is printed by the hard-copy log task (DSIHCT). 
Entries are printed in the sequence that the hard-copy task receives them. Each 
entry is preceded by the task identification associated with the message (the 
operator identification for operator station tasks). Figure B-3 shows an 
example of the hard-copy log. 
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Date 



Time 



User Key 
Field 



Displace- 
ment of 
Message 
Text 



Error 
I ndicator 



Message 
Type 



LUNAME 
from TVB 



Time 
Stamp on 
Message 



Domain 
ID 



Operator 
ID 



it 



Message 
Text 



n 



Bytes (Hex) 



10 12 13 



$ No error (X'40') 

N Header or trailer 
record (X'D5') 




20 



Immediate message 



- Message generated by 
NCCF 

* Command input from a 
terminal 

J& Solicited message from 
ACF/VTAM 

+ IBM-written non-NCCF 
command-generated 
message 

> Reply required 

NCCF-generated full-line 
message 

" IBM-written non-NCCF 

full-line message 
= user-written full-line 

message 

C Message or command gen- 
erated during CLIST 
processing 

E External (non-NCCF) 
message 

M Message from an MSG 
command 

Q Unsolicited message 

S Message text substituted 
by a user exit 

T Solicited message from 
ACF/TCAM 

U Message generated by the 
user 

Z Message generated by the 
data services task (DST) 




30 



Up to 255 bytes 



The last two bytes may 
indicate: 

% Message was sent to autho- 
rised receiver 

P Message originated at the 
PPT 

P% Message originated at the 
PPT and is not related to 
a specific operator 



Figure B-l. NCCF Log File Record Format 
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NETWORK COMMUNICATIONS CONTROL FACILITY PRINT LOG UTILITY 



09/18/80 



FRED 



09/18/80 PARIS 



> 

13 

>d 

s 

R" 
pd 

o 
o 

•n 

f 

o 

era 



td 



N 10:37:29 NETWORK 
10:37:31 - DS I 546 I 
10:37:46 Z DS I 556 I 
CODE = * 
49 * LOGOFF 
DSI081 I 
DSI020I 
PR0FILE( 
10:38:52 - DSI020I 
PROFILE( 
AUTOWRAP 
DSI082I 
04 * AT 10:41 
10 - DSI201 I 
45 * MSG ALL, 



PSIMN 



PARIS 



DSIMN 



10:37 
10:37 
10:38 



10:39 
10:39 
10:40 
10:40 
10:40 



COMMUNICATIONS CONTROL FACILITY DISK LOC 

DSILOG : PRIMARY VSAM DATA SET IS NOW ACTIVE 

DSILOG : VSAM DATASET 'CLOSE' COMPLETED, DDNAME = 'NCCFSEC ' RETURN 

00', ACB ERROR FIELD = '00' 



51 
51 



13 * 

14 ! 



OPERATOR FRED 
OPERATOR FRED 
VTAMSTAR),HCL( 
OPERATOR FRED 
VTAMSTAR),HCL( 



LOGGED OFF TERMINAL L3270D 

LOGGED ON FROM TERMINAL L3270D USING 

) 
LOGGED ON FROM TERMINAL L3270D USING 

) 



AUTOWRAP STARTED 

, ID=FRED1,MSG FRED, PLEASE START CROSS DOMAIN SESSION TO DOMAIN DSIMN, 

TIMER REQUEST SCHEDULED FOR EXECUTION - ID=FRED1 

THIS IS OPERATOR FRED LOGGED ON. 



10:40: 
10:40: 
10:40: 
10:40: 
10:41 : 
10:41: 
10:41 : 

10:41; 
10:41: 
10:41: 
10:41: 
10:42: 
10:47: 
10:48: 

10:49: 

10:49: 

10:50: 

10:50: 

10:50: 

10:50: 

10:51: 

10:51 : 

10:51 : 

10:51: 

10:51 : 

10:51: 

10:51: 

10:51; 

10:51: 

10:51: 

10:51: 

10:51 : 

10:51 

10:51: 

10:53 

10:53 

10:53: 

10:53: 



46 M 
48 - 
48 M 
57 * 
01 - 
01 - 
00 - 



DSI039I 
DSI001 I 



MSG FROM FRED : THIS 
MESSAGE SENT TO ALL 



IS OPERATOR FRED LOGGED ON, 



THIS IS OPERATOR FRED LOGGED ON. 



CMD= MSG FRZD, PLEASE START CROSS DOMAIN 



01 
01 
19 
21 
50 
55 
03 

44 
48 
27 
34 
34 
34 
23 
25 
32 
34 
34 
34 
34 
34 
43 
45 
45 
45 
45 
45 
10 
19 
24 
24 



DSI039I MSG FROM FRED 

L S=OPS 

OPERATOR: FRED TERM: L3270D STATUS: ACTIVE 

END OF STATUS DISPLAY 

DSI208I TIME EXPIRATION - I D= FRED1 

SESSION TO DOMAIN DSIMN. 
DSI001I MESSAGE SENT TO FRED 

DSI039I MSG FROM FRED : PLEASE START CROSS DOMAIN SESSION TO DOMAIN DSIMN. 
START DOMAIN=DSIMN 

DSI033I DSIMN SESSION STARTING FOR FRED 

DSI809A PLEASE ROUTE OP I D, PASSWORD, PROF I LE, HARDCOPY, I N I T I AL CMD 
DS I 810 I NCCF ACF/VTAM READY 

DSI020I OPERATOR FRED LOGGED ON FROM TERMINAL PAR I S000 USING 
PROFILE(VTAMPLUS),HCL( ) 

EVERY 5, PPT, LI ST STATUS=OPS 

DS 1 201 I TIMER REQUEST SCHEDULED FOR EXECUTION - ID=SYS00OO1 
L TIMER=ALL 
DISPLAY OF OUTSTANDING TIMER REQUESTS 

000 TIMER ELEMENT(S) FOUND FOR FRED 
END OF DISPLAY 

AT 10:55, ID=FRED2, DISPLAY NET, I D=FPU3276 

DS 1 201 I TIMER REQUEST SCHEDULED FOR EXECUTION - ID=FRED2 
L TIMER=ALL 

DISPLAY OF OUTSTANDING TIMER REQUESTS 
TYPE: AT TIME: 10:55 ID: FRED2 
COMMAND: DISPLAY NET, I D=FPU3276 

001 TIMER ELEMENT(S) FOUND FOR FRED 
END OF DISPLAY 

L TIMER=ALL,OP=PPT 

DISPLAY OF OUTSTANDING TIMER REQUESTS 

TYPE: EVERY TIME: 10:54 ID: SYSO0001 PPT INTERVAL: 00:05 

COMMAND: LIST STATUS=OPS 
001 TIMER ELEMENT(S) FOUND FOR PPT 
END OF DISPLAY 

ROUTE DSIMN, AT 10: 56, I D=DS I MNAT, L S=OPS 
AT 10:56, ID=DSIMNAT,L S=OPS 

DSI201I TIMER REQUEST SCHEDULED FOR EXECUTION - ID=DSIMNAT 
DSI810I- NCCF ACF/VTAM READY 



Figure B-2 (Part 1 of 2). Example of NCCF Log 



NETWORK COMMUNICATIONS CONTROL FACILITY PRINT LOG UTILITY 



09/18/80 



FRED 



PARIS P% 



DSIMN 



PARIS 



BVD 



END OF PRINT FOR NCCF LOG 



10:54:49 - 
10:54:49 - 
10:54:51 - 
10:55:00 - 
10:55: 04 
10:55:09 
10:55:09 
10:55:09 
10:55:09 
10:55:09 
10:57:02 - 
10:57:09 - 
10:57:09 - 
10:57:29 * 
10:57:34 - 
10:58:08 * 



DSI208I TIME EXPIRATION - I D= SYS00001 - CMD= LIST STATUS=OPS 

OPERATOR: FRED TERM: L3270D STATUS: ACTIVE 

END OF STATUS DISPLAY 

DSI208I TIME EXPIRATION - I D= FRED2 - CMD= DISPLAY NET, I D=FPU3276 

DISPLAY ACCEPTED 

VTAM DISPLAY - NODE TYPE= PHYSICAL UNIT 

NAME = FPU3276 , STATUS = NEVAC 

LINE NAME= FSDLC26 , LINE GROUP= FGROUP20 , MAJNOD= NCP6C75 

I/O TRACE= OFF , BUFFER TRACE= OFF 



10:58 
10:58 
10:58 
11:00 



11 - 



IST097I 

IST075I 

IST486I 

IST081 I 

IST654I 

IST314I END 

DSI208I TIME EXFIRATION 

OPERATOR: PETE TERM 

END OF STATUS DISPLAY 

PURGE TIMER=ALL,OP=PPT 

DSI205I 001 TIMER ELEMENTS PURGED - 0P= PARISPPT 

PURGE TIMER=ALL 

DSI205I 000 TIMER ELEMENTS PURGED - 0P= FRED 



- ID= DSIMNAT - CMD= L S=0PS 
L3270A STATUS: ACTIVE 



34 * LOGOFF 



35 - DSI081I OPERATOR FRED 
25 - DSI020I OPERATOR BVD 

PROFILE(PROFAUTH),HCL( 
11:00:25 - DSI020I OPERATOR BVD 

PROFILE(PROFAUTH),HCL( 
11:01:45 * SWITCH DSILOG,S 



LOGGED O^F TERMINAL L3270D 
LOGGED ON FROM TERMINAL L3270D 

) 
LOGGED ON FROM TERMINAL L3270D 

) 



USING 



USING 



Figure B-2 (Part 2 of 2). Example of NCCF Log 



09/23/8© 09: 15:08 



- 


©9 


15 


08 


DSIM2 


PETE 


- 


©9 


15 


08 


DSIM2 


PETE 


- 


©9 


15 


08 


DSIM2 


PETE 


« 


©9 


15 


14 


DSIM2 


PETE 


! 


09 


15 


14 


DSIM2 


PETE 


* 


09 


15 


28 


DSIM2 


PETE 


~ 


09 


15 


29 


DSIM2 


PETE 


- 


09 


15 


29 


DSIM2 


PETE 


- 


©9 


15 


42 


DSIH2 


PETE 


M 


©9 


15 


42 


DSIM2 


PETE 


- 


09 


15 


42 


DSIM2 


PETE 


M 


09 


16 


04 


DSIM2 


PETE 


- 


09 


16 


©4 


DSIM2 


PETE 


* 


©9 


17 


39 


DSIM2 


PETE 


T 


©9 


17 


40 


DSIM2 


PETE 


* 


09 


17 


56 


DSIM2 


PETE- 


T 


09 


17 


56 


DSIM2 


PETE 


* 


©9 


18 


14 


DS I M2 


PETE 


C 


09 


18 


15 


DSIM2 


PETE 


C 


©9 


18 


15 


DS I M2 


PETE 


w 


©9 


18 


21 


DSIM2 


PETE 


C 


09 


18 


21 


DSIM2 


PETE 


C 


09 


18 


21 


DSIM2 


PETE 


* 


09 


18 


27 


DSIM2 


PETE 


« 


09 


27 


26 


DSIM2 


PETE 


c 


09 


27 


27 


DS I M2 


PETE 


* 


09 


34 


13 


DSIM2 


PETE 


c 


©9 


34 


15 


DSIM2 


PETE 


* 


©9 


35 


28 


DSIM2 


PETE 


- 


09 


35 


28 


DSIM2 


PETE 


* 


09 


36 


©2 


DSIM2 


PETE 


- 


09 


36 


03 


DSIM2 


PETE 


tt 


09 


36 


11 


DSIM2 


PETE 


- 


09 


36 


11 


DSIM2 


PETE 


- 


09 


36 


12 


DSIM2 


PETE 


_ 


09 


36 


12 


DSIM2 


PETE 


- 


09 


36 


12 


DSIM2 


PETE 


- 


09 


36 


12 


DSIM2 


PETE 


_ 


09 


36 


12 


DSIM2 


PETE 


- 


09 


36 


12 


DSIM2 


PETE 


- 


09 


36 


13 


DSIM2 


PETE 


- 


09 


36 


13 


DS I M2 


PETE 


-- 


09 


37 


01 


DS I M2 


PETE 


... 


09 


37 


02 


DSIM2 


PETE 


- 


09 


37 


02 


dsim2 


PETE 


... 


09 


37 


02 


DS I M2 


PETE 


- 


09 


37 


02 


DS IM2 


PETE 


- 


©9 


37 


02 


DS I M2 


PETE 


_. 


09 


38 


14 


DSIM2 


FRED 


- 


09 


38 


14 


DSIM2 


FRED 


- 


09 


38 


14 


DSIM2 


FRED 


... 


09 


38 


14 


DSIM2 


PETE- 


* 


09 


39 


49 


DSIM2 


FRED 


- 


©9 


39 


50 


DSIM2 


FRED 


* 


©9 


40 


21 


DSIM2 


PETE 


_ 


©9 


40 


22 


DSIM2 


PETE 


* 


©9 


4© 


37 


DSIM2 


FRED 


- 


©9 


4© 


37 


DSIM2 


FRED 


K 


©9 


40 


52 


DSIM2 


FRED 


... 


©9 


4© 


55 


DSIM2 


FRED 


- 


09 


40 


55 


DSIM2 


FRED 


- 


09 


40 


55 


DSIM2 


FRED 


- 


09 


40 


55 


DSIM2 


FRED 


_ 


©9 


4© 


55 


DSIM2 


FRED 


- 


©9 


41 


03 


DSIM2 


PETE 


- 


09 


42 


03 


DSIM2 


PETE 


« 


©9 


42 


06 


DS I M2 


PETE 


- 


09 


42 


06 


DSIM2 


PETE 


* 


09 


42 


10 


DSIM2 


FRED 


M 


09 


42 


10 


DS I M2 


PETE 


- 


09 


42 


11 


DSIM2 


FRED 


m 


©9 


42 


25 


DSIM2 


PETE 


- 


©9 


42 


26 


DSIM2 


PETE 


M 


©9 


42 


26 


DSIM2 


FRED 


* 


09 


42 


46 


DS I M2 


FRED 


- 


09 


42 


47. 


DS1H2 


FRED 


N 


©9 


42 


54 


DSIM2 


FRED 


_ 


©9 


42 


55 


DS I M2 


FRED 


- 


09 


43 


05 


DSIM2 


PETE 


- 


09 


43 


06 


DSIM2 




* 


09 


44 


29 


DSIM2 


PETE 


- 


09 


44 


29 


DSIM2 


PETE 


- 


09 


44 


30 


DSIM2 




-■ 


©9 


44 


30 


DSIM2 


L328' 



TO START REPLY' GO START 



TO START REPLY 'GO START 



-34 

= 87658533 



DSI033I L3284A SESSION STARTING FOR PETE 

DSI020I OPERATOR PETE LOGGED ON FROM TERMINAL L3270A USING 

PROFILE! TCAMSTAR ) , HCL ( L3284A ) 

DSI020I OPERATOR PETE LOGGED ON FROM TERMINAL L3270A USING 

PROFILE! TCAMSTAR ) , HCL ( L3284A ) 

AUTOWRAP 

DSI082I AUTOWRAP STARTED 

L S=OPS 

OPERATOR: PETE TERM: L3270A STATUS: ACTIVE 

END OF STATUS DISPLAY 

DSI208I TIME EXPIRATION - ID= SYSO00O1 - CMD= MSG ALL. THIS IS FROM NCCFIC 

EVERY 5IPPTX EV5P 

DSI039I MSG FROM DSIM2PPT: THIS IS FROM NCCFIC EVERY 

5 ( PPT ) < EV5P 

DSI001I MESSAGE SENT TO ALL 

PURGE TIMER=ALL,OP=PPT 

DSI205I 004 TIMER ELEMENTS PURGED - 0P= DSIM2PPT 

D TP.ACT.NTCAM2 

IED036I NTCAM2 ACTIVE=FGR0UP2© . 006 

D IP . TERM . L3270A 

IED033I L32/0A STATUS* SNGLTRM OPTFLDS SCNDARY INTENSE* NO 

IN-SEI3=00©1 . QUT-SEG!=0045 

DOMAINS 

PARIS DOMAIN IS INACTIVE. 

TO CONTINUE ON REPLY ' GO ' . 

GO 

DSIMN DOMAIN IS INACTIVE, 

TO CONTINUE ON REPLY 'GO'. 

GO 

ASSIGN 87654321 + 4567 - 321 + 

** 87654321 + 4567 - 321 + -34 

DOMAIN 

THE DOMAIN NAME IS DSIM2 

AT 9:37,ID=AT937,L S=OPT 

DSI201I TIMER REQUEST SCHEDULED FOR EXECUTION - ID=AT937 

EVERY 5,PPT,REG!MS FPU3276 

DSI201I TIMER REQUEST SCHEDULED FOR EXECUTION - ID=SYS00003 

LIST TIMER=ALL,OP=ALL 

DISPLAY OF OUTSTANDING TIMER REQUESTS 

TYPE: AT TIME: 09:37 ID: AT937 

COMMAND: L S=OPT 

OP: PETE 
TYPE: EVERY TIME: 09:41 ID: SYS0O003 

COMMAND: REQMS FPU3276 

OP. PPT (PETE) 
002 TIMER ELEMENT! S) FOUND FOR ALL 
END OF DISPLAY 

DSI208I IIME EXPIRATION - I»= AT937 
NAME: DS1L0G TASKNAME: DSILOG STATUS: 
NAME: BNWDSERV TASKNAME: BNHDSERV STATUS: 
NAME: BNHLNPDA TASKNAME: BNHLNPDA SlATUS: 
NAME: BNHEDCBA TASKNAME: BNHEDCBA STATUS: 
END OF STATUS DISPLAY 

DSI033I L3284A SESSION STARTING FOR FRED 

DSI020I OPERATOR FRED LOGGED ON! FROM TERMINAL L3270C USING 
PROFILE! TCAMPROF ) , HCL! L3284A ) 

DSI164I PROFILE TCAMPROF SPECIFIES FEATURES NOT SUPPORTED - PARAMETERS 
IGNORED. 

DSI020I OPERATOR FRED LOGGED ON FROM TERMINAL L3270C USING 
PROFILE! TCAMPROF) , HCL! L3284A ) 
EVERY 10, REQMS FPU3274 

DSI201I TIMER REQUEST SCHEDULED FOR EXECUTION - ID=SYSO0004 
AT 9:42, ID=PETE1 , MSG SYSOP, PLEASE DISABLE CHANNEL 0C1 . 
DSI201I TIMER REQUEST SCHEDULED FOR EXECUTION - ID=PETE1 
LIST TIMER=ALL,OP=PETE 

DSI213I ACCESS NOT AUTHORIZED: OP NOT IN OPERATOR'S SCOPE 
LIST TIMER=ALL 

DISPLAY OF OUTSTANDING TIMER REQUESTS 
TYPE: EVERY TIME: 09:49 ID: SYS&0004 INTERVAL: 00:10 

COMMAND: REQMS FPU3274 
001 TIMER ELEMENT! S) FOUND FOR FRED 
END OF DISPLAY 

DSI208I TIME EXPIRATION - ID= SYS000O3 - CMD= REQMS FPU3276 
DSI208I TIME EXPIRATION - ID= PETE1 - CMD= MSG SYSOP. PLEASE DISABLE 
CHANNEL 0C1 . 

DSI039I MSG FROM PETE : PLEASE DISABLE CHANNEL 0C1 . 
DSI001I MESSAGE SENT TO SYSOP 
MSG PETE. ARE YOU USING THE 3705-6 OCO? 

DSI039I MSG FROM FRED : ARE YOU USING THE 3705-6 OCO? 
DSI001I MESSAGE SENT TO PETE 
MSG FRED. YES I AM 
DSI001I MESSAGE SENT TO FRED 
DSI039I MSG FROM PETE : YES I AM 
PURGE TIMER=ALL 

DSI205I 001 TIMER ELEMENTS PURGED - 0P= FRED 
LOGOFF 

DSI081 I OPERATOR FRED LOGGED OFF TERMINAL L3270C 
DSI081I OPERATOR FRED LOGGED OFF TERMINAL L3270C 
DSI056I L3284A SESSION STOPPING FOR FRED 
LOGOFF 

DSI081I OPERATOR PETE LOGGED OFF TERMINAL L3270A 
DSI056I L328'4A SESSION STOPPING FOR PETE 
DSI104I ***** END OF NCCF HARDCOPY LOG *#**> 



PPT INTERVAL: 00:05 



CMD= L S=OPT 
ACTIVE 
ACTIVE 
ACTIVE 
ACTIVE 



Figure B-3. Example of Hard-Copy Log 



Appendix B. NCCF Log and Hard-Copy Log B-5 



Appendix C. NCCF Controls Blocks 



This appendix describes some of the control blocks used by NCCF command 
processors and service routines. The complete description of all NCCF control 
blocks is in NCCF Logic, LY38-3010. 

How to Read Data Maps 

The data map descriptions in this manual consist of four sections: 

• A reference list precedes the diagram of the data area. This list may 
contain some or all of the following items: 

DSIname: Functional description 

BOUNDARY: Byte, halfword, fullword, or doubleword 

LENGTH: Decimal and hexadecimal value in bytes 

POINTED TO BY: Control blocks that contain pointers to this data 

area 

INCLUDED BLOCKS: Control blocks embedded within this data area 

NOTE: Additional information 

• A diagram of the control block follows the reference list. This diagram 
shows the offsets, type, length, name, and description of each field in the 
control block. The offsets are the decimal and hexadecimal displacements 
of the fields. The type indicator tells whether the field is a pointer, 
character string, bit string, or the first field of a structure. The length of 
each field is shown in bytes. Variable-length fields are shown with a length 
of zero. These variable-length fields contain appendages that may end on a 
boundary other than the one specified. Most of the control block fields 
contain the name of the field and a description of the function of the field. 

• A cross-reference list immediately follows the data map diagram. This list 
contains, in alphabetic order, the symbolic names of the fields that define 
storage in the control block. Each field name is followed by its decimal and 
hexadecimal displacement within the control block. Bit names are followed 
by a decimal displacement and a hexadecimal value representation. 

• A list of constant fields in the control block, if any, follows the alphabetic 
cross-reference list. The constants are listed by name, value, and meaning. 
The constant values may be in decimal, hexadecimal (X), binary (B), or 
character representations. A constant or group of constants that define 
values for a particular field in the control block is identified with a 
subheading that specifies the primary field name. 



Appendix C. NCCF Control Blocks C-l 



CBH 



CBH 

DSICBH ? 

BOUNDARY ? 

LENGTH : 

LOCATION : 

OFFSETS 





MAPS THE CONTROL BLOCK HEADER WHICH APPEARS AS THE 

FIRST FIELD IN MOST NCCF CONTROL BLOCKS 

DOUBLEUORD 

4 BYTES 

THE FIRST FIELD IN MOST NCCF CONTROL BLOCKS 



TYPE LENGTH NAME 
(0) STRUCTURE 4 DSICBH 



DESCRIPTION 

CONTROL BLOCK HEADER 



(0) BITSTRING 

1 (1) BITSTRING 

2 (2) SIGNED 



1 CBHID 

1 CBHTYPE 

2 CBHLENG 



CONTROL BLOCK ID (UNIQUE FOR 
EACH CONTROL BLOCK) 
CONTROL BLOCK TYPE (APPLIES 
TO DSITVB AND DSITIB ONLY 
CONTROL BLOCK LENGTH 
(INCLUDING THIS HEADER). 
LENGTH BASED ON CBHID AND 
CBHTYPE FIELDS. 



CROSS REFERENCE 



CBHID 
CBHLENG 
CBHTYPE 
DSICBH 



(0) 
(2) 
(1) 
(0) 



C-2 



Constants in DSICBH 



CBH 



NAME 



VALUE 



MEANING 



Masks For Setting and Testing CBHID Field (Bit 8) 



CBHMVT 
CBHTVB 
CBHTIB 
CBHTID 
CBHSNT 
CBHART 
CBHDQT 
CBHSCT 
■CBHOIT 
CBHDDT 
CBHSVL 
CBH CUB 
CBHSWB 
CBHDSB 
CBHDCT 
CBHSCB 
CBHPDB 
CBHNAT 
CBHSAT 
CBHCLB 
CBHUSE 
CBHSSB 
CBHDSRB 

CBHTIQ 
CBHNDT 
CBHNMB 

CBHSWA 

CBHCDB 

CBHLUTSK 

CBHGRTTB 

CBHCDNID 



X 


Fl» 


X 


F2» 


X 


F3» 


X 


F4' 


X 


CI 1 


X 


C2' 


X 


C3' 


X 


C4' 


X 


'C5» 


X 


C6' 


X 


'CS' 


X 


C9' 


X 


'Dl' 


X 


'D2» 


X 


»D3' 


X 


D4' 


X 


D5» 


X 


D6» 


X 


D7' 


X 


DS f 


X 


D9' 


X 


E2' 


X 


E3' 


X 


E4' 


X 


E5' 


X' 


E6' 


X 


E7 f 


X 


E8' 


X' 


4A' 


X' 


4C* 



X'4D* 



MVT CTL BLK ID VALUE 
TVB CTL BLK ID VALUE 
TIB CTL BLK ID VALUE 
TID CTL BLK ID VALUE 
SNT CTL BLK ID VALUE 
ART CTL BLK ID VALUE 
DQT CTL BLK ID VALUE 
SCT CTL BLK ID VALUE 
OIT CTL BLK ID VALUE 
DDT CTL BLK ID VALUE 
SVL CTL BLK ID VALUE 
CWB CTL BLK ID VALUE 
SUB CTL BLK ID VALUE 
DSB CTL BLK ID VALUE 
DCT CTL BLK ID VALUE 
SCB CTL BLK ID VALUE 
PDB CTL BLK ID VALUE 
NAT CTL BLK ID VALUE 
SAT CTL BLK ID VALUE 
CLB CTL BLK ID VALUE 
USE CTL BLK ID VALUE 
SSB CTL BLK ID VALUE 
DSRB CTL BLK 
ID VALUE 
TIQ CBH ID 
NDT CTL BLK VALUE 
NMB CTL BLK 
ID VALUE 
SWB CTL BLK 
ID VALUE 
CDB CTL BLK 
LU TASK BLOCK ID 
GLOBAL CNM ROUTING 
TABLE 

CDRM-TO-NCCFID 
TABLE 



Constants for Setting/Testing CHBTYPE Field (Bit 8) 



CBHPPT 


X 


00' 


DSIPPT CTL BLK 
TYPE VALUE 


CBHNNT 


X 


01» 


DSINNT CTL BLK 
TYPE VALUE 


CBHOST 


X 


02' 


DSIOST CTL BLK 
TYPE VALUE 


CBHHCT 


X' 


03' 


DSIHCT CTL BLK 
TYPE VALUE 


CBHTCT 


X 1 


04' 


DSITCT CTL BLK VALUE 


CBHOPTSK 


X 1 


05' 


OPTIONAL TASK CTL 
BLK TYPE VALUE 


CBHMNT 


X 


06' 


MAIN TASK CTL 
BLK TYPE VALUE 


CBHACT 


X 


00' 


DSISWB/CWB CTL BLK 
TYPE VALUE 


CBHINACT 


X 


FF i 


DSISWB/CWB CTL BLK 
TYPE VALUE 


CBHTIQS 


X 


E2' 


SEND TYPE TIQ 


CBHTIQR 


X 


D9' 


RECEIVE TYPE TIQ 


CBHTIQL 


X 


D3' 


LOGON TYPE TIQ 


CBHTIQO 


X 


D6' 


OP QUEUE TYPE TIQ 


CBHTIQX 


X 


E7' 


CROSS DOMAIN TIQ 


CBHTIQC 


X 


C3' 


CSMI TYPE TIQ 


CBHCDADD 


X 


CI' 


ADDITIONAL CDB 


CBHCDMN 


X 


D4' 


MAIN CLB 


CBHLUSSB 


X 


E2' 


LU TASK LUSSB BLK 


CBHLUTVT 


X 


E3' 


LU TASK LUTVT BLK 



Appendix C. NCCF Control Blocks C-3 



CWB 



CWB 

DSICWB: MAPS THE COMMAND WORK BLOCK 

BOUNDARY : DOUBLEWORD 

LENGTH : 364 BYTES (X'16C) 

POINTED TO BY : TIB (TIBNCCWB) NORMAL COMMAND 

(TIBICCWB) IMMEDIATE COMMAND 

(TIBMRCCWB) RECEIVED COMMAND 

MVT (MVTLCWB) FIRST CWB ON CHAIN 

INCLUDED BLOCKS: CBH (CWBCBH) 



OFFSETS TYPE LENGTH NAME 
(0) STRUCTURE 364 DSICWB 



DESCRIPTION 
COMMAND WORK BLOCK 






(0) 


CHARACTER 


4 


CWBCBH 


CONTROL BLOCK HEADER 


4 


(4) 


A-ADDRESS 


72 


CWBSAVEA 


SAVEAREA USED TO CALL A 
SERVICE ROUTINE OR ANOTHER 
COMMAND PROCESSOR 


76 


(4C) 


CHARACTER 


12 


CWBPARMS 


COMAND PROCESSOR PARAMETERS 


76 


(4C) 


A-ADDRESS 


4 


CWBBUF 


POINTER TO COMMAND BUFFER 


80 


(50) 


A-ADDRESS 


4 


CWBPDB 


POINTER TO PARSED COMMAND 


84 


(54) 


A-ADDRESS 


4 


CWBSWB 


POINTER TO SWB FOR USE BY THE 
COMMAND PROCESSOR 


88 


(58) 


A-ADDRESS 


4 


CWB NEXT 


ADDR OF NEXT CWB ON THE CHAIN 


92 


(5C) 


A-ADDRESS 


4 


CWBTIB 


ADDR OF CALLERS TIB 


96 


(60) 


CHARACTER 


256 


CWBADATD 


AUTOMATIC WORKAREA 


352 


(160) 


A-ADDRESS 


4 


CWBDSRB 


POINTER TO THE DSRB 


356 


(164) 


A-ADDRESS 


4 




RESERVED 


360 


(168) 


A-ADDRESS 


4 




RESERVED 



LOGON AUTHORIZATION WORKING STORAGE 



96 


(60) 


STRUCTURE 


256 


CWBLAPRM 


LOGON ATHORIZATION PARM LIST 


96 


(60) 


CHARACTER 


8 


CWBLAUSR 


USER ID IF LOGON IS 
AUTHORIZED 


104 


(68) 


A-ADDRESS 


4 


CWBLASTG 


PTR TO 1ST PIECE OF WORKING 
STORAGE 


108 


(6C) 


A-ADDRESS 


8 


CWBLASPN 


PTRS TO SPAN/ISPAN SKELETONS 


116 


(74) 


A-ADDRESS 


4 


CWBLADOM 


PTR TO DOMAINS SKELETON 


120 


(78) 


SIGNED 


4 


CWBLASCT 


SPAN/ISPAN SKELETON COUNT 


124 


(7C) 


SIGNED 


4 


CWB LAO IT 


OIT ENTRY INDEX NUMBER 



128 


(80) 


SIGNED 


2 


CWBLADCT 


130 


(82) 


CHARACTER 


1 


CWBLAFLG 




1. . . 






CWBLAUTH 




.1. 


• .... 




CWBLAGBL 


131 


(83) 


CHARACTER 


8 


CWBLAHCY 


139 


(8B) 


CHARACTER 


8 


CWBLAPRF 


147 


(93) 


CHARACTER 


205 


CWBLAWRK 





(0) 


STRUCTURE 


8 


CWBLASTO 



DOMAINS SKELETON COUNT 
INDICATOR FLAGS 
AUTH YES INDICATED 
GLOBAL AUTHORITY 
HARDCOPY LUNAME 
PROFILE NAME 
REMAINING WORK AREA 
LAC STORAGE BLOCK HEADER 



CA 



CWB 



OFFSETS 
(0) 


TYPE LENGTH 
A-ADDRESS 4 


NAME 
CWBLACHN 


DESCRIPTION 

NEXT PIECE OF STORAGE 


4 



(4) 
(0) 


SIGNED 
STRUCTURE 


4 
8 


CWBLALEN 
CWBLASEN 


LENGTH OF STORAGE PIECE 
SPAN/ISPAN SKELETON ENTRY 





(0) 


A-ADDRESS 


4 


CWBLASCH 


PTR TO NEXT ENTRY OF SAME 
TYPE 


4 
6 




(4) 
(6) 

(0) 


SIGNED 
SIGNED 
STRUCTURE 


2 

2 
12 


CWBLASIN 
CWB LADEN 


SNT INDEX VALUE 

ALIGNMENT 

DOMAINS SKELETONS ENTRY 





(0) 


A-ADDRESS 


4 


CWBLADCH 


PTR TO NEXT DOMAINS SKELETON 


4 


(4) 


CHARACTER 


8 


CWBLADNM 


DOMAIN NAME 



CROSS REFERENCE 



CWBADATD 


96 


(60) 


CWBLASCH 





(0) 


CWBBUF 


76 


(4C) 


CNBLASCT 


120 


(78) 


CWBCBH 





(0) 


CWBLASEN 





(0) 


CWBDSRB 


352( 


:i60) 


CWBLASIN 


4 


(4) 


CWBLACHN 





(0) 


CWBLASPN 


108 


(6C) 


CW3LADCH 





(0) 


CWBLASTG 


104 


(68) 


CWBLADCT 


128 


(80) 


CWBLASTO 





(0) 


CWB LADEN 





(0) 


CWBLAUSR 


96 


(60) 


CWBLADNM 


4 


(4) 


CWBLAUTH 


130 


X T 80 


CWBLADOM 


116 


(74) 


CWBLAIJRK 


147 


(93) 


CWBLAFLG 


130 


(82) 


CWB NEXT 


&S 


(58) 


CWBLAGBL 


130 


X»40' 


CWBPARMS 


76 


(4C) 


CWBLAHCY 


131 


(83) 


CWBPDB 


80 


(50) 


CWBLALEN 


4 


(4) 


CWBSAVEA 


4 


(4) 


CWBLAOIT 


124 


(7C) 


CWBSWB 


84 


(54) 


CWBLAPRF 


139 


(8B) 


CWBTIB 


92 


(5C) 


CWBLAPRM 


96 


(60) 


DSICWB 





(0) 



Constants in DSICWB 



NAME 



VALUE 



MEANING 



ACF/VTAM Command Processoi DSIVTP Constants and Return Codes 

(Fullword) 

COMMAND EXECUTED 
SUCCESSFULLY 
COMMAND FAIL ED- 
ERROR MSG ISSUED 
COMMAND FAILED— 
NO ERROR MSG ISSUED 



VTPGOOD 





VTPBAD 


8 


VTPABORT 


12 



START Command Processoi DSISRP Constants and Return Codes 

(Fullword) 



SRPGOOD 
SRPBAD 



COMMAND EXECUTED 
SUCCESSFULLY 
COMMAND FAILED— 
ERROR MSG ISSUED 



ROUTE Command Processoi DSIRTP Constants and Return Codes 

(Fullword) 



RTPGOOD 
RTPBAD 



COMMAND EXECUTED 
SUCCESSFULLY 
COMMAND FAIL ED- 
ERROR MSG ISSUED 



Appendix C. NCCF Control Blocks C-5 



DSB 



DSB 

DSIDSB : MAPS THE DATA SERVICE BLOCK USED BY NCCF DATA 

SET SERVICE ROUTINES 
BOUNDARY : DOUB'.-.JORD 
L ENGTH : 50 BYTES CX'32') 

POINTED TO BY : SWB (DKSD5B) 

CLB (CLBDSB) 
INCLUDED BLOCKS : CBH (DSBCBH) 



OFFSETS TYPE LENGTH NAME 

(0) STRUCTURE 50 DSIDSB 



DESCRIPTION 

DATA SERVICE BLOCK 






(0) 


CHARACTER 


a 


DSBCBH 


CONTROL BLOCK HEADER 




4 


(4) 


A-ADDRESS 


4 


DSBNEXT 


CHAIN PTR TO NEXT DSB 




8 


(8) 


A-ADDRESS 


4 


DSBFILE 


ADDR OF THE DCB/DTF 




12 


(C) 


A-ADDRESS 


4 


DS^'JFF 


ADDR OF I/O BUFFER 




16 


(10) 


A-ADDRESS 


4 


DSBREC 


ADDR OF LOGICAL RECORD 




20 


(14) 


CHARACTER 


12 


DSBBLOCK 


VSE ADDR OF LAST RECORD 


READ 


20 


(14) 


SIGNED 


4 


DSBTTR 


OS/VS REL BLOCK ADDR OF 
RECORD 


LAST 



24 (18) UNSIGNED 

25 (19) CHARACTER 

26 (1A) "NSIGNED 



DSBLOGRE 



DSBLOGRC 



OS/VS LOGICAL RECORD FOR 

BLOCKED RECORDS 

RESERVED 

SAVE AREA FOR LOG RECORD 

COUNT 



28 


(1C) 


CHARACTER 


4 




RESERVED 


32 


(20) 


SIGNED 


4 


DSBCUREC 


CURRENT PHYSICAL RECORD IN 
BUFFER 


36 


(24) 


CHARACTER 


8 


DSBMEMBR 


DATA SET MEMBER NAME 


44 
46 


(2C) 
(2E) 


SIGNED 
SIGNED 


2 

2 


DS3I0S2 

DSBRECNT 


I/O BUFFER SIZE 
LOGICAL RECORD COUNT IN 
CALLERS 3UFFER TO PROCESS 



48 (30) BITSTRING 
1 

. A . . .... 

..1 



DSBFLGS 

DSBIOERR 
u^i u r i a u 
DSBEOD 



INDICATOR FLAGS 

I/O |RROR ( ON READ OPERATION 

i r (i_i iu Ci\ rOUiiiJ xii i uo 

END OF DATA SET ON THIS 
MEMBER 



CROSS REFERENCE 



DSBBLOCK 

DSB3UFF 

DSBCBH 

DSBCUREC 

DSBEOD 

DSBFILE 

DSBFLGS 

DSBFND 

DSBIOERR 

DSBIOSZ 

DSBLOGRC 

DSBLOGRE 

DSBMEMBR 

DSBNEXT 

DSBREC 

DSBRECNT 

DSBTTR 

DSIDSB 



20 (14) 

12 (C) 

(0) 

32 (20) 

48 X'20 f 

8 (8) 

43 (30) 
48 X f 40' 
48 X'80' 

44 (2C) 
26 (1A) 
24 (18) 
36 (24) 

4 (4) 

16 (10) 

46 (2E) 

20 (14) 

(0) 



C-6 



DSRB 



DSRB 

DSIDSRB : MAPS THE DATA SERVICES REQUEST BLOCK FOR THE DATA 

SERVICES TASK 
B OUNDARY : DOUBLEWORD 
LE NGTH : 163 BYTES (X f A3») 
POINTED TO BY : CUB (CWBDSRB) 

TID (TIDDSRB) ANCHOR FOR CHAIN 
SWB (SWBCSDRB) 
INCLUDED BLOCKS: CBH (DSRBCBH) 



OFFSETS TYPE LENGTH NAME 
(0) STRUCTURE 163 DSIDSRB 



DESCRIPTION 

DATA SERVICES REQUEST BLOCK 






(0) 


CHARACTER 


1 


DSRBCBH 


NCCF CTL BLK HDR 


4 


(4) 


A-ADDRESS 


4 


DSRBNXTV 


ADDR OF NEXT DSRB IN THE 
CHAIN 


8 


(8) 


A-ADDRESS 


4 


DSRBVECB 


VSAM ECB 


12 


(C) 


A-ADDRESS 


4 


D5RBVRPL 


ADDR OF VSAM RPL 


16 


(10) 


A-ADDRESS 


4 


DSRBCUSB 


ADDR PREALLOCATED CSMI 
UNSOLICITED RESPONSE BUFFER 


20 


(14) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


24 


(18) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


28 


(1C) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


32 


(20) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 



36 (24) BITSTRING 
1. . . . 
.1.. . 

. .1. . 

. ..1 . 

1 

1 

1. 
.1 



DSRBFLG 

DSRBTYPE 

DSRBACTV 

DSRBINUS 

DSRBVRDV 

DSRBVRSM 
DSRBCRSM 
DSRB VSAM 
DSRBCNMI 



INDICATOR FLAGS 

1 = UNSOLICITED = SOLICITED 

1 = IN USE BY A DSCP = 

AVAILABLE 

1 = IN USE BY CSMI/VSAM = 

AVAILABLE FOR CSMI/VSAM 

1 = VSAM REDRIVE OPERATION 

= VSAM NORMAL OPERATION 

VSAM NOT FIRST TIME SWITCH 

CSMI NOT FIRST TIME SWITCH 

LAST MACRO WAS DSIZVSMS 

LAST MACRO WAS DSI2CSMS 



38 


(26) 


SIGNED 


2 




RESERVED 


40 


(28) 


A-ADDRESS 


4 


DSRBTIB 


ADDR OF TIB OF DATA SERVICES 
TASK 


44 


(2C) 


SIGNED 


4 




RESERVED 


48 


(30) 


SIGNED 


4 




RESERVED 


52 


(34) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


56 


(38) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


60 


(3C) 


CHARACTER 


103 


DSRBLOCK 


CODE ZEROED OUT DURING CLEAN 
UP 


60 


(3C) 


CHARACTER 


8 


DSRBRSMV 


RESUME VERB (COMMAND 
PROCESSOR) 



68 



(44) A-ADDRESS 



4 DSRBRADD 



ADDR OF RESUME COMMAND 
PROCESSOR 



Appendix C. NCCF Control Blocks C-7 



DSRB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 



72 


(48) 


CHARACTER 


8 


DSRBOID 


OPERATOR ID THAT INVOKED 


PSCP 


80 


(50) 


A-ADDRESS 


4 


DSRBDSCP 


ADDR OF ORIGINAL DSCP 




84 


(54) 


A-ADDRESS 


4 


DSRBUSER 


USER FIELD 




88 


(58) 


A-ADDRESS 


4 


DSRBVACB 


ADDR OF VSAM ACB 




92 


(5C) 


A-ADDRESS 


4 


DSRBVDAD 


ADDR VSAM USER DATA AREA 




96 


(60) 


A-ADDRESS 


4 


DSRBVKEY 


ADDR OF VSAM KEY 




100 
102 


(64) 
(66) 


SIGNED 
SIGNED 


2 
2 


DSRBVDLN 
DSRBVKLN 


LENGTH OF VSAM USER DATA 
LENGTH OF VSAM KEY 


AREA 


104 


(68) 


UNSIGNED 


4 


DSRBVOPT 


VSAM OPTION INDICATORS 





104 



105 



(68) BITSTRING 
1. . 

1. 



.1 
..1 



(69) 
1. . 
1. 
.1 



1.. 
.1. 
..1 
. . .1 
BITSTRING 



. .1 

1. . 
.1. 



DSRVOPT1 

DSRVSEQ 

DSRVDIR 

DSRVSKP 

DSRVARD 

DSRVLRD 

DSRVFWD 

DSRVBUD 

DSRVNUP 

DSRV0PT2 

DSRVNSP 

DSRVUPD 

DSRVKEQ 

DSRVKGE 

DSRVFKS 

DSRVGEN 



SEQUENTIAL ACCESS 
DIRECT ACCESS 
SKIP SEQUENTIAL ACCESS 
USER ARGUMENT 
LAST RECORD 
FORWARD PROCESSING 
BACKWARD PROCESSING 
RECORD NOT TO BE UPDATED 

REMEMBER POSITION 

UPDATE RECORD 

KEY = FOR ARGUMENT 

KEY GREATER THAN OR EQUAL TO 

FULL KEY FOR ARGUMENT 

GENERIC KEY FOR ARGUMENT 



108 


(6C) 


SIGNED 


4 




RESERVED 


112 
113 
114 


(70) 
(71) 
(72) 


CHARACTER 
CHARACTER 
SIGNED 


1 
1 
2 


DSRBVRTP 


RESERVED 

VSAM REQUEST TYPE 

RESERVED 


116 


(74) 


SIGNED 


4 


DSRBVRCT 


VSAM LOGICAL ERROR RETRY 
COUNTER 


120 

J. i-i- 


(78) 

t T A \ 


UNSIGNED 

/Mun»^Trn 


2 


DSRBCCOR 


NEG RESPONSE CORRELATION 
VALUE 

r> r- r- r-r>i» r-rk 


124 


(7C) 


A-ADDRESS 


4 


DSRBUBUF 


ADDR OF INPUT BUFFER QUEUED 
BY DSCP 


128 
130 


(80) 
(82) 


SIGNED 
SIGNED 


2 

2 


DSRBBUFL 
DSRBPRID 


LENGTH OF DSCP INPUT BUFFER 
USER CORRELATION VALUE 


132 


(84) 


SIGNED 


4 




RESERVED 


136 


(88) 


A-ADDRESS 


4 


DSRBINPT 


ADDR OF CSMI INPUT BUFFER 


140 
142 


(SO 
(8E) 


SIGNED 
SIGNED 


2 
2 


DSR3ILEN 


LENGTH OF CSMI INPUT BUFFER 
RESERVED 


144 


(90) 


SIGNED 


4 


DSRBRCMA 


MAJOR RETURN CODE VALUE 


148 


(94) 


SIGNED 


4 


DSRBRCMI 


MINOR RETURN CODE VALUE 


152 


(98) 


SIGNED 


4 


DSRBDSRC 


VSE I/O COMPLETE RETURN CODE 



156 


(9C) 


CHARACTER 


1 


DSRBFNCD 


157 


(9D) 


CHARACTER 


1 




158 


(9E) 


CHARACTER 


3 


DSRBREQN 


161 


(Al) 


CHARACTER 


2 


DSRBSTEP 



DSRB FUNCTION INDICATION CODE 

RESERVED 

REQUEST SERIAL NO PACKED 

STEP SERIAL NO IN PACKED 



C-8 



DSRB 



CROSS REFERENCE 



DSIDSRB 





(0) 


DSRBACTV 


36 


X'40 f 


DSRBBUFL 


128 


(80) 


DSRBCBH 





CO) 


DSRBCCOR 


120 


(78) 


DSRBCNMI 


36 


X»01» 


DSRBCRSM 


36 


X» 04 f 


DSRBCUSB 


16 


(10) 


DSRBDSCP 


80 


(50) 


DSRBDSRC 


152 


(98) 


DSRBFLG 


36 


(24) 


DSRBFNCD 


156 


(9C) 


DSRBILEN 


140 


(8C) 


DSRBINPT 


136 


(88) 


DSRBINUS 


36 


X'20 ? 


DSRBLOCK 


60 


(3C) 


DSRBNXTV 


4 


(4) 


DSRBOID 


72 


(48) 


DSRBPRID 


130 


(82) 


DSRBRADD 


68 


(44) 


DSRBRCMA 


144 


(90) 


DSRBRCMI 


148 


(94) 


DSRBREQN 


158 


(9E) 


DSRBRSMV 


60 


(3C) 


DSRB5TEP 


161 


(Al) 


DSRBTIB 


40 


(28) 


DSRBTYPE 


36 


X'80 f 


DSRBUBUF 


124 


(7C) 


DSRBUSER 


84 


(54) 


DSRBVACB 


ZS 


(58) 


DSRBVDAD 


92 


(5C) 


DSRBVDLN 


100 


(64) 


DSRBVECB 


8 


(8) 


DSRBVKEY 


96 


(60) 


DSRBVKLN 


102 


(66) 


DSRBVOPT 


104 


(68) 


DSRBVRCT 


116 


(74) 


DSRBVRDV 


36 


X'10' 


DSRBVRPL 


12 


(C) 


DSRBVRSM 


36 


X'08 f 


DSRBVRTP 


113 


(71) 


DSRBVSAM 


36 


X'02 f 


DSRVARD 


104 


X'10 T 


DSRVBWD 


1C4 


X'02 f 


DSRVDIR 


104 


X'40 f 


DSRVFKS 


105 


X f 08' 


DSRVFWD 


104 


X'04' 


DSRVGEN 


105 


X'04» 


DSRVKEQ 


1G5 


X'20' 


DSRVKGE 


105 


X'10' 


DSRVLRD 


104 


X'OS' 


DSRVNSP 


105 


X'80' 


DSRVNUP 


104 


X'01 T 


DSRVOPT1 


104 


(68) 


DSRV0PT2 


105 


(69) 


DSRVSEQ 


104 


X'SO' 


DSRVSKP 


104 


X»20 r 


DSRVUPD 


105 


X'40 f 
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DSRB 



NAME 



Constants in DSIDSRB 



VALUE 



MEANING 



DSRBFNCD With Possible Values that Can Be Assigned to the Code 
(Halfword) 





DSRBFNRM 




1 




DSRBFUNS 




2 




DSRBFSOL 




3 




DSRBFVSM 




4 


Constants For 
(Fullword) 


Setti ng 


and 


Testi ng 


(minor return 


code f i eld 


sett 


i ngs are 




DSRCGOOD 









DSRCNGRP 




4 




DSRCSTOR 




8 




DSRCUNSL 




12 




DSRCNOEX 




16 




DSRCTRNC 




20 




DSRCEXTR 




24 




DSRCAREJ 




28 




DSRCLOSE 




32 



FIRST INVOCATION 
OF DSCP 

UNSOLICITED DATA 
PASSED TO DSCP 
SOLICITED DATA 
PASSED TO DSCP 
VSAM I/O OPERATION 
HAS COMPLETED 

DSRB Minor Return Codes 



REQUESTED FUNCTION 
PERFORMED 
NEGATIVE RESPONSE 
WAS RECEIVED 
INSUFFICIENT NCCF 
STORAGE TO PROCESS 
REQUEST 

NO UNSOLICITED DSRB 
WAS AVAILABLE 
USER EXIT REJECTED 
THIS REQUEST 
DATA TRUNCATION 
OCCURRED DUE TO 
INSUFFICENT INPUT 
BUFFER LENGTH 
DATA TRUNCATION 
OCCURRED (USER EXIT 
SUBSTITUTION) 
ACCESS METHOD 
REJECTED REQUEST 
CNMI CLOSED DUE TO 
UNRECOVERABLE ERROR 



Constants For Setting and Testing DSRBVRTP (Bit 8) 



DSRVGET 
DSRVPUT 
DSRVPNT 
DSRVERS 
DSRVNRQ 



X'Ol* 
X'02' 
X'03' 
X'CK* 
X f 05' 



GET REQUEST 
PUT REQUEST 
POINT REQUEST 
ERASE REQUEST 
ENDREQ REQUEST 



Constants For Setting and Testing DSRB Major Fields (Fullword) 



DSRBVSUC 



SUCCESSFUL 
COMPLETION 



The Minor Return Code Settings For DSRCVLOG and DSRCVPHS 
are defined by VSAM 



DSRCVLOG 
DSRCVPHS 



8 

12 



VSAM CHECK MACRO 
LOGICAL ERROR 
VSAM CHECK MACRO 
PHYSICAL ERROR 



..Constants For Setting and Testing DSRBTYPE (Bit 1) 



DSRBTSOL 
DSRBTUNS 



B'O 
B'l 



SOLICITED DSRB 
UNSOLICITED DSRB 



Constants For Setting and Testing DSRBACTV (Bit 1) 



DSRBAUSE 
DSRBAVAL 



B»l 
B'O 



DSRB IN USE BY DSCP 
DSRB AVAILABLE 
FOR USE 
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IFR 



IFR 

D5IIFR : MAPS THE INTERNAL FUNCTION REQUEST PARAMETER LIST 

BOUNDARY : FULLWORD 

LENGTH : 2 BYTES + VARIABLE PARAMETERS 

POINTED TO BY : TIB (TIOPSIFR) PSS IFR 

NOTE : OVERLAYS HDRMSG FIELD IN DSITIB 



OFFSETS TYPE LENGTH NAME 
(0) STRUCTURE 2 DSIIFR 



DESCRIPTION 

INTERNAL FUNCTION REQUEST 



(0) SIGNED 
2 (2) CHARACTER 
2 (2) STRUCTURE 

2 (2) BITSTRING 
1 

.1 

. .1 

3 (3) BITSTRING 
6 (6) SIGNED 



2 IFRCODE 

IFRPARMS 
19 IFRXDOM 

1 IFRIND 
IFRXFREE 
IFRXQTR 
IFRXQTP 



SEE CODE VALUES 

VARIABLE PARAMETERS 

XDOMAIN BUFFERS AND XTERM 

CLEANUP IFR REQUEST 

INDICATORS 

1 = FREEMAIN THIS BUFFER 

1 = TERMSESS REQUEST ON QUEUE 

1 = TERMSESS IN PROGRESS 

ALIGNMENT 

DOMAIN MESSAGE LENGTH 



8 


(8) 


A-ADDRESS 


4 


IFRXQCHN 


QUEUE CHAIN PTR FOR SCB QUEUE 


12 


(C) 


CHARACTER 


8 


IFRXTNAT 


PRIMARY DOMAIN APPLID (FROM A 
DSINAT ENTRY) 


20 


(14) 


CHARACTER 


1 


IFRXTEXT 


TEXT 



2 (2) STRUCTURE 10 IFRLGN 
2 (2) SIGNED 2 IFRLGTYP 



XTERM PARAMETERS 

LOGON TYPE 1 = LOGON, 2 

SABOTEUR 



(4) CHARACTER 



8 IFRLGLUN 



LUNAME 



2 (2) STRUCTURE 
2 (2) CHARACTER 
10 (A) SIGNED 



26 IFRTWR 
8 IFRTWDST 
2 IFRTWDLN 



TCAM WRITE REQUEST 
DESTINATION NAME 
DATA LENGTH 



12 



28 



(C) A-ADDRESS 



IFRTWDAD 



DATA ADDRESS NOTE: IF THIS 
FIELD IS 0, THE DATA IS 
ASSUMED TO BE CONTIGUOUS, 
I.E. AT IFRTWTXT 



16 


(10) A-ADDRESS 


4 


IFRTWRPL 


RPL ADDRESS 


20 


(14) A-ADDRESS 


4 


IFRTWTVB 


TVB ADDRESS 


24 


(18) A-ADDRESS 


4 




RESERVED 



(1C) CHARACTER 



DATA, IF CONTIGUOUS WITH 
WRITE REQUEST 



Appendix C. NCCF Control Blocks C-ll 



IFR 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 



2 
2 


(2) 
(2) 


STRUCTURE 
A-ADDRESS 


10 
2 


IFRTRCSM 


CSMI READ REQUEST 
RESERVE 


4 


(4) 


A-ADDRESS 


4 


IFRTRRPL 


RPL ADDRESS 


8 


(8) 


A-ADDRESS 


4 


IFRTRTVB 


TVB ADDRESS 


28 


(1C) 


STRUCTURE 


32 


IFRSS 


SCREEN SIZE REQUEST 


28 


(1C) 


CHARACTER 


8 


IFRSSCHR 


SET TO '333333'X DSISS 


36 


(24) 


CHARACTER 


8 


IFRSSTRM 


DEVICE 


44 


(2C) 


A-ADDRESS 


4 


IFRSSECB 


ADDRESS OF ECB 


48 


(30) 


A-ADDRESS 


4 


IFRSSTVB 


ADDRESS OF TVB 


52 


(34) 


A-ADDRESS 


4 


IFRSSPTR 


POINTER TO SCREEN MATRX SIZE 
AREA IN REQUESTORS TIB 


56 


(38) 


CHARACTER 


4 


IFRSSDAT 


SCREEN SIZE DATA 


56 

58 


(38) 
(3A) 


SIGNED 
SIGNED 


2 
2 


IFRSSROW 
IFR5SCOL 


ROW COUNT 
COL COUNT 


28 


(1C) 


STRUCTURE 


13 


IFRCW 


CSMI WRITE DATA 


28 


(1C) 


CHARACTER 


8 


IFRCWCHR 


SET TO '333333 r X FWDRQ 


36 
37 
41 


(24) 
(25) 
(29) 


CHARACTER 

SIGNED 

CHARACTER 


1 
4 



IFRCWBLK 
IFRCWCID 
IFRCWDAT 


SET TO BLANK 
CORRELATION ID 
DATA 





(0) 


STRUCTURE 


4 


IFRSSRC 


MATRIX DSECT 





(0) 

\C J 


SIGNED 


2 


IFRSSTRW 


ROW COUNT 


4 


(4) 


CHARACTER 





IFRSSEND 


END OF DSECT 



2 


(2) 


STRUCTURE 


38 


IFRTIME 




2 


(2) 


CHARACTER 


8 


IFRTITVB 


TVBOPID OF TASK UNDER WHICH 
REQUEST WILL BE RUN 


10 


(A) 


CHARACTER 


8 


IFRTINAM 


NAME OF ELEMENT 


18 


(12) 


CHARACTER 


8 


IFRTIPOP 


OPID TO PURGE FOR 


26 


(1A) 


CHARACTER 


8 


IFRTITIM 


TIME AS ENTERED 


34 


(22) 


SIGNED 


2 


IFRTIMIM 


# MINUTES— EVERY COMMAND 


36 


(24) 


BITSTRING 


1 


IFRTIIND 


FLAG BYTE 




1.. 


» • » » . 




IFRTIAT 


AT- TIME INDICATOR 




,1.. 


• . • . . 




IFRTIEV 


EVERY TIME INDICATOR 




. .1 


• • • • • 




IFRTIPR 


PURGE- TIME INDICATOR 






L 




IFRTINXD 


NEXT DAY INDICATOR 




. • • • 


. 1111 






ALIGNMENT 


37 


(25) 


BITSTRING 


1 




ALIGNMENT 


38 


(26) 


SIGNED 


2 


IFRTICR 


FOR IFRCODCR 


40 


(28) 


CHARACTER 





IFRTITXT 


COMMAND TEXT AREA 



C-12 



IFR 



OFFSETS 



TYPE 



LENGTH NAME 



2 
2 
3 

11 


(2) 
(2) 
(3) 
(B) 


STRUCTURE 
UNSIGNED 
CHARACTER 
CHARACTER 


12 
1 
8 
3 


IFRLP 
IFRLPTYP 
IFRLPOP 
IFRLPNUM 


2 
2 


(2) 
(2) 


STRUCTURE 
CHARACTER 


10 
8 


IFRCR 
IFRCRVB 


10 


(A) 


CHARACTER 


2 


IFRCRBLK 


12 


(C) 


CHARACTER 





IFRCRPMS 



DESCRIPTION 

LIST/PURGE MAPPING 

TYPE CODE (SEE CONSTANTS) 

AFFECTED OPERATOR ID 

REQUEST NUM, PACKED, PURGE 

ONLY 

CROSS TASK QUEUE COMMAND 

COMMAND VERB PADDED TO 8 

CHARS 

2 BLANK DELIMITER WORD 

BOUNDARY 



COMMAND PARAMETERS 



CROSS REFERENCE 



DSIIFR 





(0) 


IFRTWR 


2 


(2) 


IFRCODE 





(0) 


IFRTURPL 


16 


(10) 


IFRCR 


2 


(2) 


IFRTWTVB 


20 


(14) 


IFRCRBLK 


10 


(A) 


IFRTWTXT 


28 


(1C) 


IFRCRPMS 


12 


(C) 


IFRXDOM 


2 


(2) 


IFRCRVB 


2 


(2) 


IFRXFREE 


2 


X'SO' 


IFRCW 


28 


(1C) 


IFRXMLEN 


6 


(6) 


IFRCWBLK 


36 


(24) 


IFRXQCHN 


8 


(8) 


IFRCWCHR 


2S 


(1C) 


IFRXQTP 


2 


X'20 f 


IFRCWCID 


37 


(25) 


IFRXQTR 


2 


X'40» 


IFRCWDAT 


41 


(29) 


IFRXTEXT 


20 


(14) 


IFRIND 


2 


(2) 


IFRXTNAT 


12 


(C) 


IFRLGLUN 


4 


(4) 








IFRLGN 


2 


(2) 








IFRLGTYP 


2 


(2) 








IFRLP 


2 


(2) 








IFRLPNUM 


11 


(B) 








IFRLPOP 


3 


(3) 








IFRLPTYP 


2 


(2) 








IFRPARMS 


2 


(2) 








IFRSS 


28 


(1C) 








IFRSSCHR 


28 


(1C) 








IFRSSCOL 


58 


(3A) 








IFRSSDAT 


56 


(38) 








IFRSSECB 


44 


(2C) 








IFRSSEND 


4 


(4) 








IFRSSPTR 


52 


(34) 








IFRSSRC 





(0) 








IFRSSROW 


56 


(38) 








IFRSSTCL 


2 


(2) 








IFRSSTRM 


36 


(24) 








IFRSSTRW 





(0) 








IFRSSTVB 


48 


(30) 








IFRTIAT 


36 


X 5 80' 








IFRTICR 


38 


(26) 








IFRTIEV 


36 


X'40» 








IFRTIIND 


36 


(24) 








IFRTIME 


2 


(2) 








IFRTIMIM 


34 


(22) 








IFRTINAM 


10 


(A) 








IFRTINXD 


36 


X'10* 








IFRTIPOP 


IS 


(12) 








IFRTIPR 


36 


X»20' 








IFRTITIM 


26 


(1A) 








IFRTITVB 


2 


(2) 








IFRTITXT 


40 


(28) 








IFRTRCSM 


2 


(2) 








IFRTRRPL 


4 


(4) 








IFRTRTVB 


8 


(8) 








IFRTWDAD 


12 


(C) 








IFRTWDLN 


10 


(A) 








IFRTWDST 


2 


(2) 
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IFR 



Constants in DSIIFR 



LABEL 



VALUE 



MEANING 



(Byte) 



IFRCODXT 


1 


IFRCODLG 
IFRCODCR 


2 
3 


IFRCODTW 
IFRCODSS 
IFRCODTR 
IFRCODCW 
IFRCODUS 


4 
5 
6 
7 
8 


IFRCODTP 


9 


IFRCODTT 


j.0 


IFRCODPN 
IFRCODTI 
IFRCODTC 


11 
12 
14 


IFRCODLP 


15 


IFRCODLW 


16 


(Halfword) 




IFRSSRD 
IFRSSCD 


24 
80 


Type Codes in IFRLPTYP (Byte) 




IFRLPLST 
IFRLPPUR 


1 
2 



XTERM CLEANUP 

REQUEST 

LOGON REQUEST 

CROSS-TASK QUEUE 

COMMAND 

TCAM WRITE IFR 

SCREEN SIZE REQUEST 

CSMI READ ELEMENT 

CSMI WRITE' ELEMENT 

USER IFR DRIVES 

EX013 

TCAM PURGE I/O 

REQUEST 

TCAM TERMINATE I/O 

REQUEST 

SCREEN COMMAND IFR 

TIMER REQUEST 

TCAM RESETSR 

(CANCEL) 

LIST/PURGE IMMEDIATE 

DST REQUEST 

WRITE TO LOG 

INDICATOR 



DEFAULT ROW COUNT 
DEFAULT COLUMN COUNT 



IFRLPTYP=LIST 
IFRLPTYP=PURGE 



C-14 



LOGDS 



LOGDS 



DSILOGDS: MAPS THE NCCF DISK 
BOUNDARY: FULLWORD 
LENGTH: 48 BYTES (X»30») + 
INCLUDED BLOCKS: NONE 

OFFSETS TYPE LENGTH 

(0) STRUCTURE 48 


LOG 

CALLERS TEXT 

NAME 
DSILOGDS 


RECORD 

DESCRIPTION 

FORMAT OF LOG RECORD 





(0) 


CHARACTER 


16 


LOGKEY 


KEY OF THE RECORD 





(0) 


SIGNED 


4 


LOGKEYDT 


DATE: FORMAT = OOYYDDDC 


4 


(4) 


SIGNED 


4 


LOGKEYTM 


TIME: FORMAT = HHMMSSOC 


4 
7 


(4) 

(7) 


CHARACTER 
UNSIGNED 


3 
1 


LOGUNIQ 


PLACE HOLDER 

OC UNLESS A DUPLICATE TIME 

DATE STAMP HAS BEEN OBTAINED 


8 


(8) 


CHARACTER 


8 


LOGKEYEX 


USER KEY FIELD 


16 
18 
19 


(10) 
(12) 
(13) 


SIGNED 

CHARACTER 

CHARACTER 


2 

1 
1 


LOGDISP 

LOGIND 

LOGMTYPE 


DISPLACEMENT OF MESSAGE TEXT 
RECORD INDICATOR 
MESSAGE TYPE 


20 


(14) 


CHARACTER 


8 


LOGLUNAM 


LUNAME FROM TVB 


28 


(1C) 


SIGNED 


4 


LOGTIME 


TIME FROM CALLER'S BFR HEADER 
(FORMAT: HHMMSSOC) 


32 


(20) 


CHARACTER 


8 


LOGDOMID 


DOMAIN ID 


32 
39 


(20) 
(27) 


CHARACTER 
CHARACTER 


7 
1 


LOGAUTHP 


PLACE HOLDER 

% FOR MSG FOR AUTH OPERATOR 


40 


(28) 


CHARACTER 


8 


LOGOPID 


OPERATOR ID 


48 


(30) 


CHARACTER 





LOGTEXT 


CALLERS TEXT RECORD 



CROSS REFERENCE 



DSILOGDS 





(0) 


LOGAUTHP 


39 


(27) 


LOGDISP 


16 


(10) 


LOGDOMID 


32 


(20) 


LOGIND 


IS 


(12) 


LOGKEY 





(0) 


LOGKEYDT 





(0) 


LOGKEYEX 


8 


(8) 


LOGKEYTM 


4 


(4) 


LOGLUNAM 


20 


(14) 


LOGMTYPE 


19 


(13) 


LOGOPID 


40 


(28) 


LOGTEXT 


48 


(30) 


LOGTIME 


28 


(1C) 


LOGUNIQ 


7 


(7) 
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MVT 



Ml 

DSIMVT : MAPS THE MAIN VECTOR TABLE 
BOUNDARY ^ DOUBLEUORD 
LENGTH : 2248 BYTES X'8C8' 
POINTED TO BY : TVB (TVBMVT) 
INCLUDED BLOCKS : CBH (MVTCBH) 
SUB (MVTSWBM) 

OFFSETS TYPE LENGTH NAME 

(0) STRUCTURE 2248 DSIMVT 



DESCRIPTION 

MAIN VECTOR TABLE 






(0) 


CHARACTER 


4 


MVTCBH 


NCCF CTL BLK HDR 


4 


(4) 


CHARACTER 


4 


MVTVER 


NCCF VERSION INFORMATION 


8 


(8) 


A-ADDRESS 


4 


MVTDPRAD 


ADDR OF DSIDPR (VSE ONLY) 


12 


(C) 


A-ADDRESS 


4 


MVTSNT 


ADDR OF SPAN NAME TABLE 


16 


(10) 


A-ADDRESS 


4 


MVTOIT 


ADDR OPERATOR ID TABLE 


20 


(14) 


A-ADDRESS 


4 


MVTART 


ADDR OF AUTH ROUTING TABLE 


24 


(18) 


A-ADDRESS 


4 


MVTDQT 


ADDR DOMAIN QUALIFICATION 
TABLE 


28 


(1C) 


A-ADDRESS 


4 


MVTDDT 


ADDR DOMAIN DEFINITION TABLE 


32 


(20) 


A-ADDRESS 


4 


MVTSCT 


ADDR SYSTEM COMMAND TA3LE 


36 


(24) 


A-ADDRESS 


4 


MVTCDNID 


ADDR OF CDRMNAME-TO-NCCFID 
TALBE 


40 


(28) 


A-ADDRESS 


4 


MVTGRTTB 


ADDR OF GLOBAL CNM ROUTING 
TABLE 


44 


(2C) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


48 


(30) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


52 


(34) 


A-ADDRESS 


4 


MVTSVL 


ADDR SERVICE-RTN VECTOR LIST 


56 


(38) 


BITSTRING 


8 


MVTCUBQ 


CUB CHAIN INFO 


56 


(38) 


SIGNED 


4 


MVTCBOTH 


COUNT CONTROL FIELDS 


56 

58 


(38) 
(3A) 


SIGNED 
SIGNED 


2 
2 


MVTCLIMT 
MVTCCOUN 


CONTROL BLOCK COUNT LIMIT 
CONTROL BLOCK CURRENT COUNT 


60 


(3C) 


A-ADDRESS 


4 


MVTLCWB 


ADDR OF 1ST CWB ON THE CHAIN 


64 


(40) 


BITSTRING 


8 


MVTSWBQ 


SWB CHAIN INFO 


64 


(40) 


SIGNED 


4 


MVTSBOTH 


COUNT CONTROL FIELDS 


64 
66 


(40) 
(42) 


SIGNED 
SIGNED 


2 
2 


MVTSLIMT 
MVTSCOUN 


CONTROL BLOCK COUNT LIMIT 
CONTROL BLOCK CURRENT COUNT 


68 


(44) 


A-ADDRESS 


4 


MVTLSWB 


ADDR OF 1ST SWB ON THE CHAIN 


72 


(48) 


A-ADDRESS 


4 


MVTTVB 


TVB CHAIN HEADER 


76 


(4C) 


CHARACTER 


8 


MVTNOSPQ 


QNAME FOR ENQ ON THE TVB 
CHAIN 


76 


(4C) 


CHARACTER 


8 


MVTNCCFQ 


QNAME FOR ENQ ON THE TVB 
CHAIN 



84 



(54) CHARACTER 



18 MVTTVBRN 



RNAME FOR ENQ ON THE TVB 
CHAIN 



C-16 



MVT 



OFFSETS TYPE LENGTH NAME 
102 (66) SIGNED 2 MVTSCMAX 



DESCRIPTION 

MAXIMUM SCOPECLASS VALUE 



104 


(68) 


A-ADDRESS 


4 


MVTBPDCT 


BPAM DSIDCT CHAIN HEADER 


108 


(6C) 


A-ADDRESS 


4 




RESERVED FOR FUTURE USE 


112 


(70) 


A-ADDRESS 


4 


MVTMCC 


ADDR NCCF MESSAGE CSECT 


116 


(74) 


A-ADDRESS 


4 


MVTEX01 


USER OST INPUT EXIT RTN 
(DSIEX01) 


120 


(78) 


A-ADDRESS 


4 


MVTEX02 


USER OST OUTPUT EXIT RTN 
(DSIEX02) 


124 


(7C) 


A-ADDRESS 


4 


MVTEX03 


USER CMD INVOCATION EXIT RTN 
(DSIEX03) 


128 


(80) 


A-ADDRESS 


4 


MVTEX04 


USER LOG SERVICE EXIT RTN 
(DSIEX04) 


132 


(84) 


A-ADDRESS 


4 


MVTEX05 


USER POI OUTPUT EXIT RTN 
(DSIEX05) 


136 


(88) 


A-ADDRESS 


4 


MVTEX06 


USER POI INPUT EXIT RTN 
(DSIEX06) 


140 


(8C) 


A-ADDRESS 


4 


MVTEX07 


USER NNT OUTPUT EXIT RTN 
(DSIEX07) 


144 


(90) 


A-ADDRESS 


4 


MVTEX08 


USER NNT INPUT EXIT RTN 
(DSIEX08) 


148 


(94) 


A-ADDRESS 


4 


MVTEX0 9 


USER SYSTEM CONSOLE OUTPUT 
EXIT RTN (DSIEX09) 


152 


(98) 


A-ADDRESS 


4 


MVTEX10 


USER SYSTEM CONSOLE INPUT 
EXIT RTN (DSIEX10) 


156 


(9C) 


A-ADDRESS 


4 

v. 


MVTEX11 


USER PPT INPUT EXIT RTN 
(DSIEX11) 


160 


(AO) 


A-ADDRESS 


4 


MVTEX12 


OPERATOR LOGON EXIT RTN 
(D5IEX12) 


164 


(A4) 


A-ADDRESS 


4 


MVTEX13 


MESSAGE RECEIVER EXIT RTN 
(DSIEX13) 


168 


(A8) 


A-ADDRESS 


4 


MVTEX14 


OST TERMINATION EXIT RTN 
(DSIEX14) 


172 


(AC) 


A-ADDRESS 


4 


MVTEX15 


VSE ONLY TASK TERMINATION 


176 


(BO) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


180 


(B4) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


184 


(B8) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


188 


(BC) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 


192 


(CO) 


A-ADDRESS 


4 




RESERVED CRITICAL FIELD 



196 (C4) CHARACTER 

1... . 

1. . . 

1. . 

.1 . 

. . 1 

. . .1 

.. ..1 



MVTIND 

MVTINIT 

MVTTERM 

MVTCLOSE 

MVTTPEND 

MVTSHTDN 

MVTWRMST 

MVTWLOPN 



INDICATOR FLAGS 

1 = NCCF INIT IN PROGRESS 

1 = NCCF TERM IN PROGRESS 

1 = NCCF CLOSE ISSUED 

1 = TPEND HAS BEEN ENTERED 

1 = NCCF IS IN SHUTDOWN MODE 

1 = NCCF IN WARM START MODE 

1 = NCCF LOG IS ACTIVE 
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MVT 



OFFSETS 



TYPE 



LENGTH NAME 



1 MVTRCF 

197 CC5) CHARACTER 1 MVTSPCHR 

198 (C6) SIGNED 2 MVTOCNT 



DESCRIPTION 

1 = RACF LOGON PROC 

00 = NO SUPPRESS CHAR OTHER = 

SUPPRESS CHAR 

MAX NUMBER OF ENTRIES IN 

DSIOIT 



200 
202 


(C8) 
(CA) 


SIGNED 
SIGNED 


2 
2 


MVTPRFCT 
MVTDRTRY 


MAX NUMBER OF PROFILES 

DEFINED 

MAX DEVICE RETRY COUNT 


204 


(CO 


SIGNED 


4 


MVTPRID 


CURRENT DSM PRID VALUE 


208 


(DO) 


A-ADDRESS 


4 


MVTMNTLE 


MAIN TASK LOGON EXIT ADDRESS 


212 


(D4) 


A-ADDRESS 


4 


MVTCMPRG 


POINTER TO TCAM PURGE I/O 
PARAMETER LIST 


216 


(D8) 


A-ADDRESS 


4 




RESERVED 


220 
222 


(DC) 
(DE) 


SIGNED 
SIGNED 


2 
2 


MVTMRC 
NVTTCNT 


MAX SUBTASK REINSTATE COUNT 
MAX NUMBER OF TVBS FOR THIS 
NCCF 



224 (EO) SIGNED 
226 (E2) SIGNED 



2 MVTSCNT 
2 MVTSNTLN 



COUNT OF ENTRIES IN DSISNT 

(SPAN COUNT) 

LENGTH OF EACH ENTRY IN 

DSISNT 



228 (E4) SIGNED 
230 (E6) SIGNED 



2 MVTRCNT 
2 MVTARTLN 



COUNT OF ENTRIES IN DSIART 
(RESOURCE COUNT) 
LENGTH OF EACH ENTRY IN 
DSIART 



232 (E8) SIGNED 



234 



(EA) SIGNED 



2 MVTMLGON 
2 MVTCDSES 



MAX NO OF REENTRY OF LOGON 

PARMS FOR AN ATTEMPTED LOGON 

PROCESS 

MAX NO CROSS-DOMAIN SESSIONS 

ALLOWED FOR THIS NCCF 



236 



(EC) CHARACTER 



9 MVTCURAP 



CURRENT DOMAIN VTAM APPLID 
(MNT) 



236 

237 
245 

245 
246 
254 



(EC) 
(ED) 
(F5) 

(F5) 
(F6) 
(FE) 



UNSIGNED 

CHARACTER 

CHARACTER 

UNSIGNED 

CHARACTER 

CHARACTER 



1 MVTCURAL 

8 MVTCURAN 

9 MVTCURPW 

1 MVTCURPL 

8 MVTCURPN 
2 



CURRENT DOMAIN APPLID LENGTH 

VTAM APPLID NAME 

CURRENT DOMAIN VTAM PASSWD 

(MNT) 

CURRENT DOMAIN PASSWD LENGTH 

VTAM PASSWORD 

ALIGNMENT 



256 


(100) 


A-ADDRESS 


4 


MVTSWB 


ADDR OF SWB USED BY DSIMNT 


260 


(104) 


A-ADDRESS 


4 


MVTACB 


ADDR OF ACB USED BY DSIMNT 


264 


(108) 


A-ADDRESS 


4 


MVTGMSG 


ADDR OF SPECIAL ERROR MESSAGE 


268 


(IOC) 


BITSTRING 


8 


MVTTOD 


TOD CLOCK AT NCCF START 


276 


(114) 


SIGNED 


4 




RESERVED 


280 


(118) 


A-ADDRESS 


4 


MVTUFLD 


NCCF USER FIELD 


284 


QIC) 


A-ADDRESS 


4 




RESERVED 


288 


(120) 


A-ADDRESS 


4 


MVTLAC 


ADDR OF LOGON AUTH MODULE 



292 (124) A-ADDRESS 



4 MVTGFMG1 



WTOLIST MSG1 FOR GETMAIN 
FAILURE 



C-18 



MVT 



OFFSETS 
296 (128) 


TYPE LENGTH 
SIGNED 4 


NAME 
MVTGFAIL 


DESCRIPTION 

GETMAIN FAILURE COUNT 


300 


(12C) 


A-ADDRESS 


4 


MVTGFMG2 


WTOLIST MSG2 FOR GETMAIN 
FAILURE 


304 


(130) 


A-ADDRESS 


4 


MVTPOOL 


STORAGE POOL INDEX ADDRESS 


308 


(134) 


SIGNED 


4 


MVTTASKC 


TASK COUNT FOR ACF/TCAM ID 


312 


(138) 


A-ADDRESS 


4 


MVTLOGGR 


LOGGER BUFFER PTR 


316 

318 
319 


(13C) 

(13E) 
(13F) 


SIGNED 

CHARACTER 
CHARACTER 


2 

1 
1 


MVTTVBSZ 

MVTMETH 
MVTSNALV 


TOTAL AREA GOTTEN FOR ALL 

TVBS 

ACCESS METHOD IN USE 

SNA LEVEL IN USE 


320 


(140) 


CHARACTER 


8 


MVTTPROC 


TCAM AMH TPROCESS NAME 


328 


(148) 


A-ADDRESS 


4 


MVTTLGNQ 


TCAM LOGON QUEUE 


332 


(14C) 


CHARACTER 


2 


MVTTSVC 


NCCF USER SVC 


332 
333 
334 


(14C) 
(14D) 
(14E) 


BITSTRING 

UNSIGNED 

SIGNED 


1 
1 
2 


MVTTSVCO 
MVTTSVCN 


SVC OP CODE 
SVC NUMBER HEX 
RESERVED 


336 


(150) 


A-ADDRESS 


4 


NVTCTVB 


ADDR OF TCT TVB 


340 


(154) 


A-ADDRESS 


4 


MVTNDT 


ADDR OF NCCF DOMAIN TABLE 


344 


(153) 


SIGNED 


4 


MVTEXTRN 


EXTERNAL INFO 


344 
345 


(158) 
(159) 


BITSTRING 
UNSIGNED 


1 
1 


MVTDELAY 
MVTQREQ 


OPEN/CLOSE DELAY 
EXTERNAL QUEUE REQUEST 


348 


(15C) 


A-ADDRESS 


4 


MVTCCL 


ADDR OF DSICCL 


THE FOLLOWING FIELDS SUPPORT 


MNT REWRITE 




352 


(160) 


A-ADDRESS 


4 


MVTSFXP 


SUFFIX TABLE ADDR 


356 


(164) 


CHARACTER 


9 


MVTAPID 


APID NAME 


356 
357 
365 


(164) 
(165) 
(16D) 


CHARACTER 
CHARACTER 
CHARACTER 


1 
8 
3 


MVTAPLEN 
MVTSTNAM 


APID LENGTH 

NAME 

RESERVED 


368 


(170) 


A-ADDRESS 


4 


MVTSFXAD 


SUFFIX ENTRY ADDR 


372 


(174) 


CHARACTER 


20 


MVTCBL 


API CB LENGTHS 


372 


(174) 


SIGNED 


4 


MVTACBL 


ACB LENGTH 


376 


(178) 


SIGNED 


4 


MVTRPLL 


RPL LENGTH 


380 


(17C) 


SIGNED 


4 


MVTNIBL 


NIB LENGTH 


384 


(180) 


SIGNED 


4 


MVTEXLL 


EX LIST LENGTH 


388 


(184) 


SIGNED 


4 


MVTSCBL 


SCB LENGTH 


392 


(188) 


A-ADDRESS 


4 


MVTECBLS 


ECB LIST ADDR 


396 


(18C) 


SIGNED 


4 


MVTECBLN 


ECB LIST LENGTH 


400 


(190) 


A-ADDRESS 


4 


MVTSFXTB 


APID SUFFIX TAB ADDR 
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MVT 



OFFSETS TYPE LENGTH NAME 
404 (194) SIGNED 4 MVTSFXLN 



DESCRIPTION 

APID SUFFIX TAB LENGTH 



408 


(198) 


CHARACTER 


20 


MVTECBG 


GLOBAL ECBS 


408 


(198) 


SIGNED 


4 


MVTECBT 


TERMINATE ECB 


412 


(19C) 


SIGNED 


4 


MVTECBW 


WTOR ECB 


416 


(1A0) 


SIGNED 


4 


MVTSFECB 


STOP FORCE ECB 


420 


(1A4) 


SIGNED 


4 


MVTECBD 


DETATCH ECB 


424 


(1A8) 


SIGNED 


4 


MVTECBA 


ATTACH ECB 


428 


(1AC) 


A-ADDRESS 


4 


MVTTVBM 


MAIN TASK TVB ADDR 


432 


(1B0) 


CHARACTER 


64 


MVTBLDLL 


BLDL LIST AREA 



ENTRIES IN THE FOLLOWING TABLES ARE ORDERED AND ACCESSED BY TASK 
TYPE VALUES AS DEFINED IN DSICBH. THEY ARE FILLED IN OR 
CALCULATED BY THE MAIN TASK. 



496 


(1F0) 


CHARACTER 


28 


MVTRPLCT 


COUNT OF RPLS BY TASK 


496 


(1F0) 


SIGNED 


4 


MVTRPLP 


PPT 


500 


(1F4) 


SIGNED 


4 


MVTRPLN 


NNT 


504 


(1F8) 


SIGNED 


4 


MVTRPLS 


OST 


508 


(1FC) 


SIGNED 


4 


MVTRPLH 


HCT 


512 


(200) 


SIGNED 


4 


MVTRPLT 


TCT 


516 


(204) 


SIGNED 


4 


MVTRPLO 


OPT 


520 


(208) 


SIGNED 


4 


MVTRPLM 


MNT 


524 


(20C) 


CHARACTER 


28 


MVTNIBCT 


COUNT OF NIB BY TASK 


524 


(20C) 


SIGNED 


4 


MVTNIBP 


PPT 


528 


(210) 


SIGNED 


4 


MVTNIBN 


NNT 


532 


(214) 


SIGNED 


4 


MVTNIBS 


OST 


536 


(218) 


SIGNED 


4 


MVTNIBH 


HCT 


540 


(21C) 


SIGNED 


4 


MVTNIBT 


TCT 


544 


(220) 


SIGNED 


4 


MVTNIBO 


OPT 


548 


(224) 


SIGNED 


4 


MVTNIBM 


MNT 


552 


(228) 


CHARACTER 


28 


MVTSCBCT 


S C B S 


552 


(228) 


SIGNED 


4 


MVTSCBP 


PPT 


556 


(22C) 


SIGNED 


4 


MVTSCBN 


NNT 


560 


(230) 


SIGNED 


4 


MVTSCBS 


OST 


564 


(234) 


SIGNED 


4 


MVTSCBH 


HCT 


568 


(238) 


SIGNED 


4 


MVTSCBT 


TCT 


572 


(23C) 


SIGNED 


4 


MVTSCBO 


OPT 



C-20 



MVT 



OFFSETS TYPE LENGTH NAME 
576 (240) SIGNED 4 MVTSCBM 



DESCRIPTION 
MNT 



580 


(244) 


CHARACTER 


28 


MVTTOTLT 


TOTAL CONTROL BLOCK STORAGE 
BY TASK 


580 


(244) 


SIGNED 


4 


MVTTOTP 


PPT 


584 


(248) 


SIGNED 


4 


MVTTOTN 


NNT 


588 


(24C) 


SIGNED 


4 


MVTTOTS 


OST 


592 


(250) 


SIGNED 


4 


MVTTOTH 


HCT 


596 


(254) 


SIGNED 


4 


MVTTOTT 


TCT 


600 


(258) 


SIGNED 


4 


MVTTOTO 


OPT 


604 


(25C) 


SIGNED 


4 


MVTTOTM 


MNT 


608 


(260) 


CHARACTER 


28 


MVTTIBLT 


COUNT OF TIB LENGTH BY TASK 


608 


(260) 


SIGNED 


4 


MVTTIBP 


PPT 


612 


(264) 


SIGNED 


4 


MVTTIBN 


NNT 


616 


(268) 


SIGNED 


4 


MVTTIBS 


OST 


620 


(26C) 


SIGNED 


4 


MVTTIBH 


HCT 


624 


(270) 


SIGNED 


4 


MVTTIBT 


TCT 


628 


(274) 


SIGNED 


4 


MVTTIBO 


OPT 


632 


(278) 


SIGNED 


4 


MVTTIBM 


MNT 



636 

637 
637 
641 
645 
661 



(27C) 
(27D) 
(27D) 
(281) 
(285) 
(295) 



CHARACTER 
CHARACTER 
BITSTRING 
BITSTRING 
CHARACTER 
CHARACTER 



1 

139 

4 

4 

16 

115 



1356 (54C) CHARACTER 



24 



MVTABLOK 
MVTUXBUF 
MVTUXMBL 
MVTUXTDS 

MVTWTORA 

MVTUXPLS 

MVTUXCBL 

MVTUXBFA 

MVTUXLUN 

MVTUXOID 

MVTUXSWB 

MVTUXTVB 

MVTUXPDB 

MVTMSVA1 

MVTMSVA2 

MVTMSVA3 

MVTMTWKA 

MVTMSGPL 

MVTMNTTP 



ABEND LOCK FOR DSIMAB 
DSIEX10 BUFFER 
MLENG AND BLENG 
TDISP 

PADDING WORDS 
WTOR REPLY AREA 



776 


(308) 


CHARACTER 


28 


MVTUXPLS 


DSIEX10 DSIUSE PLIST 


776 


(308) 


BITSTRING 


4 


MVTUXCBL 


CBH HDR AND LENGTH 


780 


(30C) 


A-ADDRESS 


4 


MVTUXBFA 


PTR TO MSG BUFFER 


784 


(310) 


A-ADDRESS 


4 


MVTUXLUN 


PTR TO SYSOP LUNAME 


788 


(314) 


A-ADDRESS 


4 


MVTUXOID 


PTR TO SYSOP OPID 


792 


(318) 


A-ADDRESS 


4 


MVTUXSWB 


PTR TO SWB 


796 


(31C) 


A-ADDRESS 


4 


MVTUXTVB 


PTR TO TVB 


800 


(320) 


A-ADDRESS 


4 


MVTUXPDB 


PTR TO PDB 


804 


(324) 


CHARACTER 


72 


MVTMSVA1 


MAIN TASK SAVE 1 


876 


(36C) 


CHARACTER 


72 


MVTMSVA2 


MAIN TASK SAVE 2 


948 


(3B4) 


CHARACTER 


72 


MVTMSVA3 


MAIN TASK SAVE 3 


1020 


(3FC) 


CHARACTER 


200 


MVTMTWKA 


MAIN TASK WORK AREA 


1220 


(4C4) 


CHARACTER 


136 


MVTMSGPL 


MSG PARM LIST AREA 



MAIN TASK MNT TERM PARM LIST 
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MVT 



OFFSETS 

1356 (54C) 
1365 (555) 
1373 (55D) 



TYPE 



LENGTH NAME 



CHARACTER 9 
CHARACTER 8 
CHARACTER 3 



MVTMNTPU 
MVTMNTLU 
MVTMNTPD 



DESCRIPTION 

PU NAME 
LU NAME 
PADDING 



1376 


(560) 


A-ADDRESS 


4 


MVTMNTSW 


MNT SWB ADDR 


1380 


(564) 


SIGNED 


4 




RESERVED 


1384 


(568) 


CHARACTER 


12 


MVTCPRGL 


TCAM TVB PURGE LIST 


1384 


(568) 


A-ADDRESS 


4 


MVTTCTVB 


TVB TO PURGE 


1388 


(56C) 


SIGNED 


4 


MVTCECBM 


TCAM ECB NNT WAIT 


1392 


(570) 


SIGNED 


4 


MVTCECBT 


TCAM ECB TCT WAIT 


1396 


(574) 


CHARACTER 


600 


MVTSWBM 


WTOR REPLY ARES 


1996 


(7CC) 


SIGNED 


4 


Ml INSV 


R15 SAVE FOR GENCB FAILURE 


2000 


(7D0) 


SIGNED 


4 


MVTMAJSV 


RO SAVE FOR GENCB FAILURE 


2004 


(7D4) 


CHARACTER 


156 


MVTMSGBF 


MNT WCS MSG BFR 


FOR TIMER-INITIATED COMMANDS 


2160 


(870) 


CHARACTER 


4 


MVTBTIME 


BASE TIME VALUE (PACKED) 



2160 (370> CHARACTER 

2161 (871) CHARACTER 

2162 (872) CHARACTER 

2163 (873) CHARACTER 



1 MVTBTMHH 

1 MVTBTMMM 

1 MVTBTMSS 

1 MVTBTMOC 



(HH) HOURS 

(MM) MINUTS 

(SS) SECONDS 

(OC) TENTHS/SIGN 



2164 


(874) 


CHARACTER 


8 


MVTBSTCK 


BASE 


TIME-STCK FORMAT 


2172 


(87C) 


CHARACTER 


8 


MVTPOPT 


POPTIME-STCK FORMAT 


ADDRESS LIST 


OF MAIN TASK 


MODULES 








2180 


(884) 


CHARACTER 


4 




RESERVED 




2184 


(888) 


A-ADDRESS 


4 


MVTMIN02 


ADDR 


OF MNT 


INIT STG2 


2188 


(8SC) 


A-ADDRESS 


4 


MVTMTE 


ADDR 


OF MNT 


TERMINATION PROC 


2192 


(890) 


A-ADDRESS 


4 


MVTMMP 


ADDR 


OF MNT 


MSG PROC 


2196 


(894) 


A-ADDRESS 


4 


MVTMAB 


ADDR 


OF MNT 


ABEND PROC 


2200 


(898) 


A-ADDRESS 


4 


MVTMCB 


ADDR 


OF MNT 


BLD CTL BLKS PROC 


2204 


(89C) 


A-ADDRESS 


4 


MVTMLG 


ADDR 


OF MNT 


LOGON EXIT PROC 


2208 


(8A0) 


A-ADDRESS 


4 


MVTMRP 


ADDR OF MNT 
PR03D705709 


RPL EXIT 


2212 


(8A4) 


A-ADDRESS 


4 


MVTMLT 


ADDR 
PROC 


OF MNT 


LOST TERM EXIT 


2216 


(8A8) 


A-ADDRESS 


4 


MVTMTP 


ADDR 


OF MNT 


TPEND EXIT PROC 



2220 (8AC) A-ADDRESS 



ADDR OF MNT 
PROC 



END OF TASK EXIT 
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MVT 



OFFSETS TYPE 



LENGTH NAME 



DESCRIPTION 



2224 


C8B0) A-ADDRESS 


4 


MVTMNS 


ADDR OF MNT NET SRVS EXIT 
PROC 


2228 


(8B4) A-ADDRESS 


4 


MVTMST 


ADDR OF MNT SUBTASK SERVICES 
PROC 



2232 (8B8) A-ADDRESS 16 



RESERVED 
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MVT 



CROSS REFERENCE 



DSIMVT 


CO) 


MVTIND 


196 (C4) 


MVTSCBN 


556C22C) 


MVTABLOK 


636C27C) 


MVTINIT 


196 X'80" 


MVTSCBO 


572(230 


MVTACB 


260(104) 


MVTLAC 


288(120) 


MVTSCBP 


552(228) 


MVTACBL 


372(174) 


MVTLCWB 


60 (3C) 


MVTSCBS 


560(230) 


MVTAPID 


356(164) 


MVTLOGGR 


312(138) 


MVTSCBT 


568(238) 


MVTAPLEN 


356(164) 


MVTLSWB 


68 (44) 


MVTSCMAX 


102 (66) 


MVTART 


20 (14) 


MVTMAB 


2196(894) 


MVTSCNT 


224 (EO) 


MVTARTLN 


230 (E6) 


MVTMAJSV 


2000C7D0) 


MVTSCOUN 


66 (42) 


MVTBLDLL 


432(1B0) 


MVTMCB 


2200(898) 


MVTSCT 


32 (20) 


MVTBPDCT 


104 (68) 


MVTMCC 


112 (70) 


MVTSFECB 


416(1A0) 


MVTBSTCK 


2164(874) 


MVTMETH 


318(13E) 


MVTSFXAD 


368(170) 


MVTBTIME 


2160(870) 


MVTMEX 


2220(8AO 


MVTSFXLN 


404(194) 


MVTBTMHH 


2160(870) 


MVTMINSV 


1996(7CO 


MVTSFXP 


352(160) 


MVTBTMMM 


2161(871) 


MVTMIN02 


2184(888) 


MVTSFXTB 


400(190) 


MVTBTMSS 


2162(872) 


MVTMLG 


2204(890 


MVTSHTDN 


196 X'08» 


MVTBTMOC 


2163(873) 


MVTMLGON 


232 (E8) 


MVTSLIMT 


64 (40) 


MVTCBH 


(0) 


MVTMLT 


2212(8A4) 


MVTSNALV 


319C13F) 


MVTCBL 


372(174) 


MVTMMP 


2192(890) 


MVTSNT 


12 (O 


MVTCBOTH 


56 (38) 


MVTMNS 


2224(8B0) 


MVTSNTLN 


226 (E2) 


MVTCCL 


348U5C) 


MVTMNTLE 


208 (DO) 


MVTSPCHR 


197 (C5) 


MVTCCOUN 


58 (3A) 


MVTMNTLU 


1365(555) 


MVTSTNAM 


357(165) 


MVTCDNID 


36 (24) 


MVTMNTPD 


1373(55D) 


MVTSVL 


52 (34) 


MVTCDSES 


234 (EA) 


MVTKNTPU 


1356(540 


MVTSWB 


256(100) 


MVTCECBM 


1388(560 


MVTMNTSW 


1376(560) 


MVTSWBM 


1396(574) 


MVTCECBT 


1392(570) 


MVTMNTTP 


1356(540 


MVTSWBQ 


64 (40) 


MVTCLIMT 


56 (38) 


MVTMRC 


220 (DC) 


MVTTASKC 


308(134) 


MVTCLOSE 


196 X'20» 


MVTMRP 


2208(8A0) 


MVTTCNT 


222 (DE) 


MVTCMPRG 


212 (D4) 


MVTMSGBF 


2004(7D4) 


MVTTCTVB 


1384(568) 


MVTCPRGL 


1384(568) 


MVTMSGPL 


1220(4C4) 


MVT TERM 


196 X'40» 


NVTCTVB 


336(150) 


MVTMST 


2228(8B4) 


MVTTIBH 


620(260 


MVTCURAL 


236 (EC) 


MVTMSVA1 


804(324) 


MVTTIBLT 


608(260) 


MVTCURAN 


237 (ED) 


MVTMSVA2 


876(360 


MVTTIBM 


632(278) 


MVTCURAP 


236 (EC) 


MVTMSVA3 


948(3B4) 


MVTTIBN 


612(264) 


MVTCURPL 


245 (F5) 


MVTMTE 


2188(880 


MVTTIBO 


628(274) 


MVTCURPN 


246 (F6) 


MVTMTP 


2216(8A8) 


MVTTIBP 


608(260) 


MVTCURPW 


245 (F5) 


MVTMTWKA 


1020C3FC) 


MVTTIBS 


616(268) 


MVTCWBQ 


56 (38) 


MVTNCCFQ 


76 (4C) 


MVTTIBT 


624(270) 


MVTDDT 


28 (1C) 


MVTHDT 


340(154) 


MVTTLGNQ 


328(148) 


MVTDELAY 


344(158) 


MVTNIBCT 


524(200 


MVTTQD 


26S( 1QO 


MVTDPRAD 


8 (8) 


MVTNIBH 


536(218) 


MVTTOTH 


592(250) 


MVTDQT 


24 (18) 


MVTNIBL 


380(170 


MVTTOTLT 


580(244) 


MVTDRTRY 


202 (CA) 


MVTNIBM 


548(224) 


MVTTOTM 


604(250 


MVTECBA 


424(1A8) 


MVTNIBN 


528(210) 


MVTTOTN 


584(248) 


MVTECBD 


420(1A4) 


MVTNIBO 


544(220) 


MVTTOTO 


600(258) 


MVTECBG 


408(198) 


MVTNIBP 


524(200 


MVTTOTP 


580(244) 


MVTECBLN 


396(180 


MVTNIBS 


532(214) 


MVTTOTS 


588(240 


MVTECBLS 


392(188) 


MVTNIBT 


540(210 


MVTTOTT 


596(254) 


MVTECBT 


408(198) 


MVTNOSPQ 


76 (4C) 


MVTTPEND 


196 X'10' 


MVTECBW 


412(190 


MVTOCNT 


198 (C6) 


MVTTPROC 


320(140) 


MVTEXLL 


384(180) 


MVTOIT 


16 (10) 


MVTTSVC 


332(140 


MVT EXT RN 


344(158) 


MVTPOOL 


304(130) 


MVTTSVCN 


333(14D) 


MVTEX01 


116 (74) 


MVTPOPT 


2172(870 


MVTTSVCO 


332(140 


MVTEX02 


120 (78) 


MVTPRFCT 


200 (CS) 


MVTTVB 


72 (48) 


MVTEX03 


124 (7C) 


MVTPRID 


204 (CO 


MVTTVBM 


428(1AC) 


MVTEX04 


128 (80) 


MVTQREQ 


345(159) 


MVTTVBRN 


84 (54) 


MVTEX05 


132 (84) 


MVTRCF 


196 X'01 f 


MVTTVBSZ 


316(130 


MVTEX06 


136 (88) 


MVTRCNT 


228 (E4) 


MVTUFLD 


280(118) 


MVTEXQ7 


140 (8C) 


MVTRPLCT 


496(1F0) 


MVTUXBFA 


780(300 


MVTEX08 


144 (90) 


MVTRPLH 


50S(1FO 


MVTUXBUF 


637(27D) 


MVTEX09 


148 (94) 


MVTRPLL 


376(178) 


MVTUXCBL 


776(308) 


MVTEXIO 


152 (98) 


MVTRPLM 


520(208) 


MVTUXLUN 


784(310) 


MVTEX11 


156 (9C) 


MVTRPLN 


500(1F4) 


MVTUXMBL 


637(27D) 


MVTEX12 


160 (AO) 


MVTRPLO 


516(204) 


MVTUXOID 


788(314) 


MVTEX13 


164 (A4) 


MVTRPLP 


496(1F0) 


MVTUXPDB 


800(320) 


MVTEX14 


168 (A8) 


MVTRPLS 


504(1F8) 


MVTUXPLS 


776(308) 


MVTEX15 


172 (AC) 


MVTRPLT 


512(200) 


MVTUXSWB 


792(318) 


MVTGFAIL 


296(128) 


MVTSBOTH 


64 (40) 


MVTUXTDS 


641(281) 


MVTGFMG1 


292(124) 


MVTSCBCT 


552(228) 


MVTUXTVB 


796(310 


MVTGFMG2 


300(120 


MVTSCBH 


564(234) 


MVTVER 


4 (4) 


MVTGMSG 


264(108) 


MVTSCBL 


388(184) 


MVTWLOPN 


196 X f 02» 


MVTGRTRN 


176 (BO) 


MVTSCBM 


576(240) 


MVTWRMST 


196 X'04 f 


MVTGRTTB 


40 (28) 






MVTWTORA 


661(295) 
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Constants in DSIMVT 



MVT 



NAME VALUE MEANING 

Masks For Setting and Testing MVTIND Flags (Bit 1) 



MVTON 
MVTOFF 



B'l 
B'O 



FUNCTION IS ACTIVE 
FUNCTION IS 
NOT ACTIVE 



ACF/TCAM Trigger Characters — Read Only (Bit 64) 



MVTOPCHR 

MVTSSCHR 
MVTFWCHR 



X f 3333333333333333' 

X'333333C4E2C9E2E2 f 
X f 333333C6E6C4D9D3' 



TCAM OPCTL CHARACTER 
STRING—READ ONLY 
SCREEN SIZE 
CSMI FORWARD 



Masks For Setting and Testing MVTMETH (Char 1) 



MVTVTAM 
MVTTCAM 



ACF/VTAM METHOD 
ACF/TCAM METHOD 



Constants For Setting and Testing DSILCM Fields (Fullword) 



LCMCASE1 

LCMCASE2 

LCMCASE3 

LCMCASE4 
LCMCASE5 
LCMCASE6 

LCMCASE7 

LCMCASES 

LCMCASE9 

LCMFREE 

LCMGET 

LCMGOOD 

LCMINACT 

LCMBAD 



CONTROL BLOCK IS 
TVB WITH OPID 
CONTROL BLOCK IS 
TVB WITH LU 
CONTROL BLOCK IS 
NEXT TV3 

CONTROL BLOCK IS SWB 
CONTROL BLOCK IS CWB 
AUTHORIZATION 
LOCATION REQUEST 
FIND NEXT OPT. TASK 
FIND TCT TVB 
FIND PPT TVB 
FREE A CWB/SWB 
LOCATE A CWB/SWB 
CONTROL BLOCK FOUND 
TASK LOCATED IS 
INACTIVE 
NOT FOUND- 
UNSUCCESSFUL 
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PDB 



PDB 

DSIPDB : MAPS THE PARSE DESCRIPTOR BLOCK USED TO ANALYZE ALL 

INPUT TO NCCF 
BOUND ARY: DOUBLEWORD 
LENGTH ^ 20 BYTES (X f 14 f ) 

POINTED TO BY : CLB (CLBPSPDB) FROM XPAUSE CONTROL STATEMENT 

(CLBGOPDB) FROM GO COMMAND 
(CLBAPDB) ALTERNATE PDB 
CW3 CCWBPDB) 
MVT (MVTUXPDB) 
SWB (PSOPTAB) 

(RDMPDB) PDB INPUT 
(PAMPDB) INPUT PDB 
(PAMENTRY) PDB ENTRY 
TIB (TIBNCPDB) NORMAL COMMAND 

(TIBMRPDB) MESSAGE RECEIVED AND RECEIVED COMMAND 
(TIBICPDB) IMMEDIATE COMMAND 
(TIBAGPD3) AGAIN PROCESSING 
USE (USERPDB) PDB PASSED TO USER EXIT 



INCLUDED BLOCKS 



OFFSETS 

(0) STRUCTURE 



12 



13 



__ CBH (PDBCBH) 
TYPE LENGTH NAME 

16 DSIPDB 



DESCRIPTION 

PARSE DESCRIPTOR BLOCK 






(0) 


CHARACTER 


16 


PDBHDR 


OVERALL 


PDB HEADER 





(0) 


CHARACTER 


4 


PDBCBH 


CONTROL 


BLOCK HEADER 


<+ 


(4) 


A-ADDRESS 


4 


PDBCMDA 


ADDR OF 


COMMAND ROUTINE 


8 


(8) 


A-ADDRESS 


4 


PDBBUFA 


ADDR OF 


INPUT BUFFER 



(C) CHARACTER 
1 

(D) CHARACTER 
f c^ c t r.ucr> 



1 PDBFLAGS 
PDBIMMED 



DTM9 VI f> CUT 



INDICATOR FLAGS 

1=IMMEDIATE COMMAND 0=REGULAR 

COMMAND 

FOR FUTURE USE/ALIGNMENT 

NUMBER OF ENTRIES IN THIS PDB 



16 



(10) CHARACTER 



PDBENTRY 



MULTIPLE ENTRIES 



16 (10) CHARACTER 

17 (11) UNSIGNED 

18 (12) SIGNED 



1 PDBTYPE 

1 PDBLENG 

2 PDBDISP 



TYPE OF ENTRY (BY DELIMITER) 
LENGTH OF THIS ENTRY 
DISPLACEMENT TO BEGINNING OF 
CHARACTER STRING IN THE 
COMMAND 



CROSS REFERENCE 



DSIPDB 





(0) 


PDBBUFA 


8 


(8) 


PDBCBH 





(0) 


PDBCMDA 


4 


(4) 


PDBDISP 


18 


(12) 


PDBENTRY 


16 


(10) 


PDBFLAGS 


12 


(C) 


PDBHDR 





(0) 


PDBIMMED 


12 


X'80' 


PDBLENG 


17 


(11) 


PDBNOENT 


14 


(E) 


PDBTYPE 


16 


(10) 
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SCE 



SCE 
DSISCE: 



BOUNDARY ' 
LENGTH: 



MAPS THE SYSTEM CONNMAND ELEMENT USED TO IDENTIFY 

NCCF COMMAND PROCESSORS, USER-WRITTEN COMMAND 

PROCESSORS, AND USER-WRITTEN COMMAND LISTS 

DOUBLEWORD 

20 BYTES (X'K 1 ) 



INCLUDED BLOCKS: CBH (DSICBH) 



OFFSETS TYPE 

(0) STRUCTURE 



LENGTH NAME 
20 DSISCE 



DESCRIPTION 

SYSTEM COMMAND ELEMENT 



(0) CHARACTER 

8 (8) CHARACTER 

16 (10) A-ADDRESS 



8 SCEVERB 
8 SCELNAME 
4 SCECADDR 



COMMAND VERB 

LOAD MODULE NAME 

ADDR OF THE COMMAND PROCESSOR 



CROSS REFERENCE 



DSISCE 
SCECADDR 
SCELNAME 
SCEVERB 



(0) 

16 (10) 

8 (8) 

(0) 
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SWB 



SWB 



DSISWB: 



MAPS THE SERVICE ROUTINE WORK BLOCK USED BY NCCF 
SERVICE ROUTINES 



BOUNDARY : DOUBLEWORD 
LENGTH : 600 BYTES (X»258») 
POINTED TO BY : CLB (CLBSWB) 

CWB (CWB SWB) 

MVT (MVTISWB) FIRST SWB ON CHAIN 
(MVTSWB) SW3 USED BY DSIMNT 
(MVTMNTSW) MNT SWB ADDRESS 
(MVTUXSWB) 
NMB (NMBSWBA) NETWORK MANAGEMENT SERVICES SWB 
TIB (TIBEXSWB) EXIT PROCESSING 
(TIBNPSWB) NORMAL PROCESSING 
(TIOPSSWB) PSS SWB 
(TIMXNNSW) 
(MMPPLSWB) 
USE (USERSWB) IN USER EXIT 
INCLUDED BLOCKS: CBH (SWBCBH) 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 






(0) 


STRUCTURE 


600 


DSISWB 


SERVICE ROUTINE WORK BLOCK 





(0) 


CHARACTER 


4 


SWBCBH 


CONTROL BLOCK HEADER 


4 


(4) 


A-ADDRESS 


72 


SWBSAVEA 


STANDARD SAVE AREA (18 ITEMS, 
EACH FIXED 31) 


76 


(4C) 


A-ADDRESS 


4 


SWB NEXT 


ADDR OF NEXT SWB ON CHAIN 


80 


(50) 


A-ADDRESS 


4 


SWBTIB 


ADDR OF CALLER'S TIB 


84 


(54) 


CHARACTER 


256 


SWBADATD 


AUTOMATIC WORK AREA 


340 


(154) 


CHARACTER 


256 


SWBPLIST 


PARAMETER LIST OVERLAY AREA 


596 


(254) 


A-ADDRESS 


4 




RESERVED 



DISK SERVICES INVOCATION PARAMETER LIST 



340 


(154) STRUCTURE 


12 


DKSPARM 


DISK SERVICES PARM LIST 


340 


(154) A-ADDRESS 


4 


DKSDSB 


ADDR OF DATA SERVICES BLOCK 
(DSIDSB) 


344 


(158) A-ADDRESS 


4 


DKSIDPTR 


ADDR OF A DCT ENTRY OR A DATA 
SET ID NAME OR NAME OF MEMBER 



348 (15C) BITSTRING 

1 

.1 

349 (15D) BITSTRING 

350 (15E) CHARACTER 



1 DKSOPT 
DKSDCB 
DKSTTR 

1 DKSREQ 

2 DKSRESV 



OPTION INDICATORS 

1=A DCT ADDR WAS SUPPLIED 

1=TTR SUPPLIED ON READ 

REQUEST 

REQUEST CODE 

FOR FUTURE USE/ALIGNMENT 
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SWB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 



MESSAGE BUILD INVOCATION PARAMETER LIST 
340 (154) STRUCTURE 92 MBSPARM 



MESSAGE BUILD PARM LIST 



340 


(154) 


A-ADDRESS 


4 


MBSMSGA 


ADDR OF SUPPLIED MSG SKELETON 


344 


(158) 


SIGNED 


4 


MBSMIDA 


MSGID VALUE (IN BINARY) 


348 


(15C) 


A-ADDRESS 


4 


MBSBFRA 


BUFFER ADDR FOR EDITED TEXT 


352 


(160) 


CHARACTER 


4 


NBSFLAGS 


INDICATORS 



352 (160) CHARACTER 
1 

.1 

. .1. .... 



1 MBSOPTS 
MBSSKELA 

MBSSIZE 

MBSTBIND 



OPTION INDICATORS 

0=MSGID SUPPLIED l=SKELETON 

ADDR SUPPLIED 

0=(SIZE=NO) SPECIFIED 

l=(SIZE=ONLY) SPECFIED 

0=USE NCCF MSG TABLE 

1=CALLERS MSG TABLE 



356 


(164) 


CHARACTER 


72 


MBSTABLE 


TEXT BUCKETS, 9 ENTRIES MAX 


356 


(164) 


CHARACTER 


8 


MBSENTRY 


VARIABLE TEXT INFO 


356 


(164) 


A-ADDRESS 


4 


MBSTXTAD 


ADDR OF VARIABLE TEXT 



360 (168) UNSIGNED 

361 (169) UNSIGNED 

362 (16A) CHARACTER 

363 (16B) CHARACTER 

1 



1 MBSTXTLN 
1 MBSPADLN 

1 MBSFILL 
1 MBSPNFLG 
MBSLEFT 



LENGTH OF VARIABLE TEXT 

TOTAL FIELD LENGTH IF PADDING 

IS REQUESTED 

FILL CHARACTER 

BUCKET FLAGS 

0=RIGHT FILL 1=LEFT FILL 



428 (1AC) A-ADDRESS 



4 MBSUMSGT 



ADDR OF USERS MSG TABLE 



COMMAND ANALASIS INVOCATION PARAMETER LIST 



340 


(154) 


STRUCTURE 


17 


CAIPARM 


CAI SERVICES PARM LIST 


340 


(154) 


A-ADDRESS 


4 


CAICMND 


ADDR OF INPUT COMMAND 


344 


(158) 


A-ADDRESS 


4 


CAICPROC 


ADDR OF CMD PROC FOR THE 
INPUT COMMAND OR FOR 
INVALID CMD 


348 


(15C) 


CHARACTER 


8 


CAINAME 


LOAD MODULE NAME TO BE FOUND 


356 


(164) 
1. . . 


BITSTRING 


1 


CAIIND 
CAIPARSD 


INDICATORS 

l=COMMAND HAS BEEN PARSED 



PARSE INVOCATION PARAMETER LIST 
340 (154) STRUCTURE 13 P 
340 (154) A-ADDRESS 4 P 
344 (158) A-ADDRESS 4 PSOPTAB 



340 


(154) STRUCTURE 


13 


PSOPARM 


PARSE SERVICES PARM LIST 


340 


(154) A-ADDRESS 


4 


PSOCMND 


ADDR OF INPUT COMMAND 



ADDR OF LOCATION IN WHICH 
PARSE TABLE IS TO BE BUILT OR 
PDB REQUIRED LENGTH 
(RETURNED) 



348 (15C) A-ADDRESS 



4 PSODELCT 



COUNT OF DELIMITERS TO BE 
USED 



352 (160) CHARACTER 



1 PSOIND 



OPTION INDICATORS 
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SWB 



OFFSETS TYPE 
1 



353 



.1 

. .1 

(161) CHARACTER 



LENGTH NAME 

PSOOPTN 

PSOFIRST 

PSOSUB 
PSODELIM 



DESCRIPTION 

1=CALCULATE PDB REQUIRED 

LENGTH FOR INPUT COMMAND 

(PSOCMND) 0=PARSE THE INPUT 

COMMAND 

0=CONTINUATION CARD 1=FIRST 

WORD ENDS IN BLANK 

QUOTES TAKE PRECEDENCE 

ARRAY OF DELIMITERS TO BE 

USED 



RECEIVE PROCESSING PARAMETER LIST 
340 (154) STRUCTURE 81 RCVPARM 



RECEIVE PROCESSING PARM LIST 



340 


(154) 


A-ADDRESS 


72 


RCVSAV 


SAVE AREA (13 ITEMS, EACH 
FIXED 31) 


412 


(19C) 


A-ADDRESS 


4 


<^VRPL 


RPL ADDR 


416 


(1A0) 


A-ADDRESS 


4 


RCVBUF 


I/O BUFFER ADDR 


420 


(1A4) 
1. . 


BITSTRING 


1 


RCVIND 
RCVASY 


OPTION INDICATORS 
0=ASYNCHRONOUS OPERATION 
ASYNCHRONOUS OPERATION 



PRESENTATION SERVICES PARAMETER LIST 
340 (154) STRUCTURE 26 PSMPARM 



PRESENTATION SERVICES PARM 
LIST 



340 


(154) 


A-ADDRESS 


4 


PSMTYPE 


REQUEST 


TYPE INDICATOR 


344 


(158) 


A-ADDRESS 


4 


PSMAREA 


ADDR OF 


CALLER'S DATA 


348 


(15C) 


A-ADDRESS 


4 


PSMRPL 


ADDR OF 


CALLER'S RPL 


352 


(160) 


A-ADDRESS 


4 


PSMAPPL 


ADDR OF 
FIELD 


8-BYTE APPL NAME 


356 


(164) 


A-ADDRESS 


4 


PSMDOM 


ADDR OF 


8-BYTE DOMAIN ID 


360 


(168) 


A-ADDRESS 


4 


PSMRID 


ADDR OF 


3-BYTE REPLY ID 



364 


(16C) BITSTRING 


1 PSMOPT 


OPTION INDICATORS 




1 


PSMERASE 


1=ERASE OPTION 




.1 




PSMSEG 


1=SEGMENT OPTION 




. .1. ... 




PSMREST 


l=KEYBOARD RESTORE OPTION 




.. .1 ... 




PSMREDY 


1=SEND READY MSG OPTION 




1. . 




PSMNREDY 


1=ERASE READY MSG OPTION 




1. 




PSMFULL 


1=FULL PROCESSING 




1 




PSMFRST 


1=FIRST OR ONLY 




1 


PSMLAST 


1=LAST OR ONLY 


365 


(16D) BITSTRING 


1 PSM0PT2 


ADDITIONAL OPTIONS 




1 


PSMCMDLN 


COMMANDLINE OPTIONS 




.1 


PSMWINDW 


WINDOW REQUEST 




..11 111] 


L 




RESERVED 



C-30 



SWB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 



OPERATOR IDENTIFICATION SERVICES PARAMETER LIST 

340 (154) STRUCTURE 12 OIMPARM OIS PARM LIST 



340 


(154) 


A-ADDRESS 


4 


OIMSNT 


ADDR 


OF 


SNT POS (INPUT) 


344 


(158) 


A-ADDRESS 


4 


OIMOPID 


ADDR 


OF 


OPERATOR ID (INPUT) 


348 


(15C) 


A-ADDRESS 


4 


OIMENT 


ADDR 


OF 


POS NUMBER (OUTPUT) 



ROUTING DETERMINATION SERVICES PARAMETER LIST 



340 


(154) 


STRUCTURE 


28 


RDMPARM 


RDS PARM LIST 


340 


(154) 


A-ADDRESS 


4 


RDMPDB 


ADDR OF PDB (INPUT) 


344 


(158) 


A-ADDRESS 


4 


RDMPOS 


ADDR OF POSITION NUM (INPUT) 


348 


(15C) 


A-ADDRESS 


4 


RDMENT 


ADDR OF ADDR OR POS (OUTPUT) 


352 


(160) 


A-ADDRESS 


4 


RDMLNAME 


ADDR OF LU NAME (INPUT) 


356 


(164) 


A-ADDRESS 


4 


RDMSTADD 


ADDR OF START ADDRESS (INPUT) 



360 (168) CHARACTER 

1 

.1 

..1 

. . .1 1111 

361 (169) CHARACTER 



1 RDMIND 
RDMACT 
RDMINACT 
RDMLOCAL 



FLAG INDICATORS FOR RDM 
ACTIVATE ART ENTRY 
INACTIVATE ART ENTRY 
ONLY SEARCH THE LOCAL 
RESERVED 
RESERVED 



364 (16C) A-ADDRESS 



RDMDOM 



IF XDOM RESOURCE, ADDR OF 
DOMAIN NAME 



SPAN SEARCH SERVICES PARAMETER LIST 



340 


(154) 


STRUCTURE 


20 


SSMPARM 


SSS PARM LIST 


340 


(154) 


A-ADDRESS 


4 


SSMPOS 


ADDR OF SPAN POS NUMBER 
(INPUT) 


344 


(158) 


A-ADDRESS 


4 


SSMSNTAD 


ADDR SNT ADDR (INPUT) 


348 


(15C) 


A-ADDRESS 


4 


SSMSPNME 


ADDR OF SPAN NAME (INPUT) 


352 


(160) 


A-ADDRESS 


4 


SSMBIT 


ADDR OF BIT POS (INPUT) 


356 


(164) 


A-ADDRESS 


4 


SSMVAL 


ADDR OF TVB 



MESSAGE QUEING SERVICES PARAMETER LIST 



340 


(154) 


STRUCTURE 


24 


MQSPARM 


MQS SERVICES PARM LIST 


340 


(154) 


A-ADDRESS 


4 


MQSMADR 


ADDR OF MESSAGE BUFFER 


344 


(158) 


A-ADDRESS 


4 


MQSTADR 


ADDR OF RECEIVER'S TVB 


348 


(15C) 


A-ADDRESS 


4 


MQSOADR 


ADDR OF RECEIVER'S OPERATOR 
ID 



(160) BITSTRING 


1 


MQSBFLG 


INDICATORS 


(161) BITSTRING 


1 


MQSMFLG 


TYPE INDICATORS 


1 




MQSMLTO 


MLWTO=ON 


.1 




MQSMLC 


CONTROL=ON 



Appendix C. NCCF Control Blocks C-31 



SWB 



OFFSETS 



TYPE 

..1 

. . .1 

1. . . 

Ill 



LENGTH NAME 



MQSMLL 
MQSMLD 
MQSMLDE 



DESCRIPTION 

LABEL=ON 
DATA=ON 
DATAEND=ON 
RESERVED 



354 


(162) 


CHARACTER 


2 


MQSRESV 


ALIGNMENT 


356 


(164) 


A-ADDRESS 


4 


MQSSADR 


ADDR OF SENDER ID 


36 


(168) 


A-ADDRESS 


4 


MQSLADR 


ADDR OF BUFFER LENGTH 



PARAMETER ALIAS PARAMETER LIST 



340 


(154) 


STRUCTURE 


12 


PAMPARM 


PAM SERVICES PARM LIST 


340 


(154) 


A-ADDRESS 


4 


PAMPDB 


ADDR OF INPUT PDB 


344 


(158) 


SIGNED 


4 


PAMENTRY 


POSITION OF PDB ENTRY TO BE 
CKED 


348 


(15C) 


A-ADDRESS 


4 


PAMOUT 


ADDRESS OF AN 8-BYTE OUTPUT 
AREA TO CONTAIN THE REGULAR 
OPERAND, OR BLANKS 



WRITE TO LOG PARAMETER LIST 



340 


(154) 


STRUCTURE 


8 


WLSPARM 


WLM SERVICES PARM LIST 


340 


(154) 


A-ADDRESS 


4 


WLSHCT 


ADDR OF HCT TVB 


344 


(158) 


A-ADDRESS 


4 


WLSBFR 


ADDR OF RECORD TO BE LOGGED 



WRITE TO CONSOLE PARAMETER LIST 



340 


(154) STRUCTURE 


4 


WCMPARM 


WCM SERVICES PARM LIST 


340 


(154) A-ADDRESS 


4 


WCMMADR 


ADDR OF MESSAGE TEXT 



CNMI SERVICES PARAMETER LIST 



340 


(154) 


STRUCTURE 


36 


SWBCSPRM 


CNMI SERVICES PARM LIST 


340 


(154) 


A-ADDRESS 


4 


SWBCSDRB 


ADDR OF 


DSRB 


344 


(158) 


A-ADDRESS 


4 


SWBCSIPT 


ADDR OF 


USER INPUT BFR 


348 


(15C) 


A-ADDRESS 


4 


SWBCSILN 


ADDR OF 
LENGTH 


USER INPUT BUFFER 


352 


(160) 


A-ADDRESS 


4 


SWBCSRU 


ADDR OF 
RU 


RU TO IMBED IN FOWARD 


356 


(164) 


A-ADDRESS 


4 


SWBCSRLN 


ADDR OF 


RU BUFFER LENGTH 


360 


(168) 


A-ADDRESS 


4 


SWBCSDST 


ADDR OF 


DEST NAME 


364 


(16C) 


A-ADDRESS 


4 


SWBCSTAR 


ADDR OF 


TARGET NAME 


368 


(170) 


A-ADDRESS 


4 


SWBCSRSM 


ADDR OF RESUME VERB (COMMAND 
PROCESSOR) 



372 (174) BITSTRING 

1 

.1 

373 (175) BITSTRING 



1 SWBCSTYP 
SWBCSCHN 
SWBCSRUO 

3 



TYPE PARAMETER 
CHAIN OPTION 
RU OPTION 
RESERVED 



C-32 



SWB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 





VSAM SERVICES PARAMETER 


LIST 






340 


(154) 


STRUCTURE 


29 


SWBVPARM 


VSAM SERVICES PARM LIST 


340 


(154) 


A-ADDRESS 


4 


SWBVDSRB 


ADDR OF DSRB 


344 


(158) 


A-ADDRESS 


4 


SWBVKEY 


ADDR OF VSAM KEY 


348 


(15C) 


SIGNED 


4 


SWBVKLN 


LENGTH OF VSAM KEY 


352 


(160) 


A-ADDRESS 


4 


SWBVRESM 


ADDR OF RESUME VERB 


356 


(164) 


A-ADDRESS 


4 


SWBVDAD 


ADDR OF USER DATA AREA 


360 


(168) 


SIGNED 


4 


SWBVDLN 


LENGTH OF USER DATA AREA 


364 


(16C) 


UNSIGNED 


4 


SWBVOPT 


VSAM OPTION INDICATORS 


364 


(16C) 


BITSTRING 


1 


SWBVOPT1 


ADDR OF RESUME VERB (COMMAND 
PROCESSOR) 




1.. 


. . . . . 




SWBVSEQ 


SEQUENTIIAL ACCESS 




.1. 


. .... 




SWBVDIR 


DIRECT ACCESS 




..1 


. .... 




SWBVSKP 


SKIP SEQUENTIAL ACCESS 




.. .] 


L 




SWBVARD 


USERS ARGUMENT 




. . . 


1... 




SWBVLRD 


LAST RECORD 




• . . 


.1. . 




SWBVFWD 


FORWARD PROCESSING 




• . . 


. . .1. 




SWBVBWD 


BACKWARD PROCESSING 




. . . 


. . .1 




SWBVNUP 


RECORD NOT UPDATED 


365 


(16D) 


BITSTRING 


1 


SWBV0PT2 






1.. 


.... 




SUBVNSP 


REMEMBER POSITION 




.1. 


.... 




SWBVUPD 


UPDATE RECORD 




. .1 


.... 




SWBVKEQ 


KEY = FOR ARGUMENT 




. . .1 




SWBVKGE 


KEY GREATER THAN OF EQUAL TO 




. . . 


1. . . 




SWBVFKS 


FULL KEY FOR ARGUMENT 




... 


.1. . 




SWBVGEN 


GENERIC KEY FOR ARGUMENT 


366 


(16E) 


BITSTRING 


2 




RESERVED 


368 


(170) 


CHARACTER 


1 


SWBVRTP 


VSAM REQUEST TYPE INDICATOR 
(SEE CONSTANTS 



NETWORK SERVICES INVOCATION PARAMETER LIST 
340 (154) STRUCTURE 228 SW3NM 



NETWORK SERVICES PARM LIST 



340 


(154) 


CHARACTER 


12 


SWBNMIN 


INPUT PARAMETER LIST 


340 


(154) 


A-ADDRESS 


4 


SWBNMBFR 


BUFFER ADDR FOR FORWARD 


344 


(158) 


A-ADDRESS 


4 


SWBNMCID 


RETURN ADDR FOR CORRELATION 
ID 


348 
349 


(15C) 
(15D) 


A-ADDRESS 
CHARACTER 


1 
3 


SWBNMTYP 


REQUEST CODE 
RESERVED 


352 


(160) 


CHARACTER 


16 


SWBNMR 


ADDITIONAL RETURN INFO 



368 (170) CHARACTER 200 SWBNMWA 



ADDITIONAL WORK AREA FOR 
NETWORK MANAGEMENT SERVICES 



Appendix C. NCCF Control Blocks C-33 



SWB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 



VSAM OPEN SERVICES PARAMETER LIST 

340 (154) STRUCTURE 8 SWBVSOPL 

340 (154) A-ADDRESS 4 SWBVSACB 

344 (158) A-ADDRESS 4 SWBVSWRK 



VSAM OPEN SERVICES PARM LIST 
POINTER TO ACB 
WORK AREA 



SCOPE KEYWORD/VALUE SUPPORT PARAMETER LIST 
340 (154) STRUCTURE 28 SWBSCPRM 



SCOPE PARAMETER LIST FOR 
DSIKVM 



340 


(154) 


A-ADDRESS 


4 


SWBSCSCT 


SCTENTRY POINTER 


344 


(158) 


CHARACTER 


8 


SWBSCCMD 


COMMAND IF PTR NOT AVAILABLE 


352 


(160) 


CHARACTER 


8 


SWBSCKEY 


KEYWORD FOR AUTHORZATION 


360 


(168) 


CHARACTER 


8 


SWBSCVAL 


VALUE FOR AUTHORIZATION 



CLIST DICTIONARY SERVICES PARAMETER LIST 



340 


(154) 


STRUCTURE 


25 


SWB CD 


CLIST DICTIONARY PLIST 


340 


(154) 


A-ADDRESS 


4 


SWBCDCLB 


ADDR OF CLB 


344 


(158) 


A-ADDRESS 


4 


SWBCDSYM 


ADDR OF SYMBOL 


348 


(15C) 


A-ADDRESS 


4 


SWBCDVAL 


ADDR OF AREA FOR VALUE (DEF + 
CHG) OR ADDR OF WORD FOR PTR 
TO VALUE (SUB+ ANA) 


352 


(160) 


A-ADDRESS 


4 


SWBCDST 


ADDR OF BYTE FOR SYMBOL TYPE 


356 


(164) 


A-ADDRESS 


4 


SWBCDVLN 


ADDR OF WORD FOR VALUE LENGTH 


360 


(168) 


A-ADDRESS 


4 


SWBCDSLN 


ADDR OF WORD FOR SYMBOL 
LENGTH 



364 (16C) A-ADDRESS 



SWBCDTYP 



REQUEST TYPE CODE 



C-34 



SWB 



CROSS REFERENCE 



CAICMND 


340(154) 


PSMRPL 


348(150 


SWBRDFUN 


340(154) 


CAICPROC 


344(158) 


PSMSEG 


364 X'40» 


SWBRDSFN 


344(158) 


CAIIND 


356(164) 


PSMTYPE 


340(154) 


SWBSAVEA 


4 (4) 


CAINAME 


348(150 


PSMWINDW 


365 X'40 f 


SWBSCCMD 


344(158) 


CAIPARM 


340(154) 


PSOCMND 


340(154) 


SWBSCKEY 


352(160) 


CAIPARSD 


356 X'80» 


PSODELCT 


34S(15C) 


SWBSCPRM 


340(154) 


DKSDCB 


348 X'80» 


PSODELIM 


353(161) 


SWBSCSCT 


340(154) 


DKSDSB 


340(154) 


PSOFIRST 


352 X f 40» 


SWBSCVAL 


360(168) 


DKSIDPTR 


344(158) 


PSOIND 


352(160) 


SWBTIB 


80 (50) 


DKSOPT 


348(150 


PSOOPTN 


352 X'80' 


SWBVARD 


364 X'10 


DKSPARM 


340(154) 


PSOPARM 


340(154) 


SWBVBWD 


364 X'02 


DKSREQ 


349(150) 


PSOPTAB 


344(158) 


SWBVDAD 


356(164) 


DKSRESV 


350(15E) 


PSOSUB 


352 X'20' 


SWBVDIR 


364 X'40 


DKSTTR 


348 X'40' 


RCVASY 


420 X»80* 


SUIBVDLN 


360(168) 


DSISWB 


(0) 


RCVBUF 


416(1A0) 


SWBVDSRB 


340(154) 


MBSBFRA 


348(150 


RCVIND 


420(1A4) 


SWBVFKS 


365 X»08 


MBSENTRY 


356(164) 


RCVPARM 


340(154) 


SWBVFWD 


364 X'04 


MBSFILL 


362(16A) 


RCVRPL 


412(190 


SWBVGEN 


365 X»04 


MBSFLAGS 


352(160) 


RCVSAV 


340(154) 


SWBVKEQ 


365 X«20 


MBSLEFT 


363 X'80« 


RDMACT 


360 X'SO' 


SU1BVKEY 


344(158) 


MBSMIDA 


344(158) 


RDMDOM 


364(160 


SWBVKGE 


365 X»10 


MBSMSGA 


340(154) 


RDMENT 


348(150 


SWBVKLN 


348(150 


MBSOPTS 


352(160) 


RDMINACT 


360 X'40' 


SWBVLRD 


364 X'08 


MBSPADLN 


361(169) 


RDMIND 


360(168) 


SWBVNSP 


365 X'80 


M3SPARM 


340(154) 


R DM L NAME 


352(160) 


SWBVNUP 


364 X'Ol 


MBSPNFLG 


363C16B) 


RDMLOCAL 


360 X»20 f 


SWBVOPT 


364(160 


MBSSIZE 


352 X'40' 


RDM FARM 


340(154) 


SWBV0PT1 


364(160 


MBSSKELA 


352 X»80' 


RDMPDB 


340(154) 


SWBV0PT2 


365(16D) 


MBSTABLE 


356(164) 


RDMPOS 


344(158) 


SWBVPARM 


340(154) 


MBSTBIND 


352 X'20' 


RDMSTADD 


356(164) 


SWBVRESM 


352(160) 


MBSTXTAD 


356(164) 


SSMBIT 


352(160) 


SWBVRTP 


368(170) 


MBSTXTLN 


360(168) 


SSMPARM 


340(154) 


SWBVSACB 


340(154) 


MBSUMSGT 


428(1AC) 


SSMPOS 


340(154) 


SWBVSEQ 


364 X'80 


MQSBFLG 


352(160) 


SSMSNTAD 


344(158) 


SWBVSKP 


364 X»20 


MQSLADR 


360(168) 


SSMSPNME 


348(150 


SWBVSOPL 


340(154) 


MQSMADR 


340(154) 


SSMVAL 


356(164) 


SWBVSWRK 


344(158) 


MQSMFLG 


353(161) 


SWBADATD 


84 (54) 


SNBVUPD 


365 X'40 


MQSMLC 


353 X f 40' 


SWBCBH 


(0) 


WCMMADR 


340(154) 


MQSMLD 


353 X'10' 


SWBCD 


340(154) 


WCMPARM 


340(154) 


MQSMLDE 


353 X'08» 


SWBCDCLB 


340(154) 


WLSBFR 


344(158) 


MQSMLL 


353 X'20' 


SWBCDSLN 


360(168) 


WLSHCT 


340(154) 


MQSMLTO 


353 X'80» 


SWBCDST 


352(160) 


WLSPARM 


340(154) 


MQSOADR 


348(150 


SWBCDSYM 


344(158) 






MQSPARM 


340(154) 


SWBCDTYP 


364(160 






MQSRESV 


354(162) 


SWBCDVAL 


348(150 






MQSSADR 


356(164) 


SWBCDVLN 


356(164) 






MQSTADR 


344(158) 


SWBCSCHN 


372 X'80' 






OINENT 


348(150 


SWBCSDRB 


340(154) 






OIMOPID 


344(158) 


SWBCSDST 


360(168) 






OIMPARM 


340(154) 


SWBCSILN 


348(150 






OIMSNT 


340(154) 


SWBCSIPT 


344(158) 






PAMENTRY 


344(158) 


SWBCSPRM 


340(154) 






PAMOUT 


348(150 


SWBCSRLN 


356(164) 






PAMPARM 


340(154) 


SWBCSRSM 


368(170) 






PAMPDB 


340(154) 


SWBCSRU 


352(160) 






PSMAPPL 


352(160) 


SWBCSRUO 


372 X'40' 






PSMAREA 


344(158) 


SWBCSTAR 


364(160 






PSMCMDLN 


365 X'80' 


SWBCSTYP 


372(174) 






PSMDOM 


356(164) 


SWBNEXT 


76 (4C) 






PSMERASE 


364 X'80» 


SWBNM 


340(154) 






PSMFRST 


364 X , 02« 


SWBNMBFR 


340(154) 






PSMFULL 


364 X'04' 


SWBNMCID 


344(158) 






PSMLAST 


364 X»01» 


SWBNMIN 


340(154) 






PSMNREDY 


364 X'08' 


SWBNMR 


352(160) 






PSMOPT 


364(160 


SWBNMTYP 


348(150 






PSM0PT2 


365(16D) 


SWBNMWA 


368(170) 






PSMPARM 


340(154) 


SWBPLIST 


340(154) 






PSMREDY 


364 X'10' 


SWBRD 


340(154) 






PSMREST 


364 X»20' 


SWBRDAPT 


352(160) 






PSMRID 


360(168) 


SWBRDCPN 


348(150 
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SWB 



Constants in DSISUIB 



NAME 


VALUE 




MEANING 


etti ng and 


Testing DKSREQ 


(Bit 


8) 


DKSOPEN 


X'01 1 




REQUEST FOR OPEN 


DKSCLOS 


X f 02» 




REQUEST FOR CLOSE 


DKSCONN 


X»03' 




REQUEST FOR 
CONNECTION 


DKSFIND 


X f 04 ? 




REQUEST FOR FIND 


DKSREAD 


X'05 f 




REQUEST FOR READ 
OPERATION 


DKSDISC 


X f 06' 




REQUEST FOR 
DISCONNECTION 



Constants For Setting and Testing DKS Return Codes (Fullword) 

OPERATION REQUEST 

SUCCESSFUL 

DATA SET NAME NOT 

FOUND OR MEMBER 

NOT FOUND IN PDS 

END OF DATA 

I/O ERROR 

OPEN/CLOSE FAILURE 

DATA SET IS NOT 

OPENED OR READ 

IS NOT PERMITTED 

NO STORAGE AVAILABLE 

AVAILABLE 

NO DISK BUFFER ADDR 

INVALID CTL BLK ID 

INVALID REQUEST CODE 



MSG BUILD WAS 
SUCCESSFUL 

MSG TEXT HAS BEEN 

TRUNCATED 

MSG TXT COULD NOT 

BE FOUND 

VAR TEXT NOT 
AVAILABLE AND 
TEXT IS TOO LONG 
MSGID NOT FOUND IN 
MSG DEIFINITION 
MODULE AND BUFFER 
IS TOO SMALL FOR 
FOR MSG DSI000 
INVALID REQUEST 



REGULAR COMMAND 
LOCATED 

IMMED/REG COMMAND 
LOCATED 

IMMEDIATE COMMAND 
LOCATED 

NO COMMAND FOUND- 
UNSUCCESSFUL 
SCOPECLASS ERROR 
COMMAND INCOMPATIBLE 



DKSGOOD 





DKSNTFND 


4 


DKSEOD 
DKSIOERR 
DKSFAIL 
DKSRDNTP 


4 
8 
8 

12 


DKSNOSTG 


12 


DKSNOBUF 
DKSINVLD 
DKSINVRC 


16 
20 
24 


etti ng and 


Testi ng 


MBSGOOD 





MBSTXTNA 
MBSTRUNC 


4 
8 


MBSNTFND 


12 


MBSNOBUF 
MBSTRTNA 


16 
20 


MBSTRNFD 


24 



MBSINVAD 


28 


s Return Code 


Valu 


CAIGOOD 





CAIBOTH 


4 


CAIMMED 


8 


CAIBAD 


12 


CAISCBAD 
CAIINVLD 


16 
20 



Parse Return Code Values (Halfword) 
PSOGOOD 
PSONULL 4 



CMD PARSED OR 
SIZE FOUND 
COMMAND NOT 



C-36 



SWB 



PSOSMALL 


8 


PSOQUOTE 


12 


PSONOPDB 


100 


atting and 


Testing PS 


PSMERAS 

PSMNERAS 

PSMSEGMT 


X'80' 
X'00» 
X'40' 


PSMMSG 
PSMRES 


X f 00» 
X'20» 


PSMNRES 


X'00' 


PSMRED 


X'10' 


PSMNRED 
PSMNOOP 


X f 08» 
X'00' 


PSMFRSTF 
PSMMIDF 
PSMLASTF 
PSMONLYF 


X T 06' 
X ' 4 ' 
X'05' 
X'07' 



PARSED— NO DATA 

PARSE TABLE TOO 

SMALL FOR COMMAND 

UNPAIRED 

APOSTROPHES 

NO PDB WAS PASSED 



SET ERASE OPTION ON 
SET ERASE OPTION OFF 
SET SEGMENT 
OPTION ON 

SET KEYBOARD 
RESTORE ON 
SET KEYBOARD 
RESTORE OFF 
SET READY MSG ON 

SET READY MSG OFF 
DON'T CHANGE 
READY MESSAGE 
FULL — FIRST 
FULL— MIDDLE 
FULL — LAST 
FULL — ONLY 

Constants For Setting and Testing PSM Option Code Byte 2 (Bit 8) 

PSMCMDLF X»80' COMMAND LINE OPTION 

Constants For Setting and Testing PSM Return Codes (Fullword) 

SUCCESSFUL 
DATA WAS NOT SENT 
DATA LENGTH INVALID 
STORAGE UNAVAILABLE 
FILLED SCREEN ERROR 
PSM FUNCTION NOT 
SUPPORTED 
ERROR IN SEQUENCE 
OF FORMATTED 
DISPLAY REQUEST 
USER EXIT DELETED 
THIS MESSAGE 
SCREEN INPUT 
CANCELED, 
NO RESUME COMMAND 
WILL BE SCHEDULED 
ERROR DURING 
SCREEN I/O. USER 
SHOULD RETRY REQUEST 
PERMANENT I/O 
ERROR DURING 
SCREEN I/O REQUEST 
SCREEN INPUT RESET 
NORMAL; NO RESUME 
COMMAND WILL BE 
SCHEDULED 
REQUEST INVALID 
SINCE PREVIOUS 
ASYPANEL HAS NOT 
BEEN POSTED 
COMPLETE, OR RESET 
WITH TYPE=CANCEL 
INPUT REQUEST ENDED 
DUE TO TYPE=CANCEL 
AT LEAST ONE NCCF 
ECB HAS BEEN POSTED 



PSMGOOD 

PSMNOSND 

PSMINVDL 

PSMNOSTG 

PSMFSERR 

PSMDUMMY 




4 

8 

12 

16 

20 


PSMSEQER 


24 


PSMUEDEL 


28 


PSMNOINP 


32 


PSMRETRY 


36 


PSMIOERR 


40 


PSMRESET 


44 


PSMBUSY 


48 



PSMCANCL 
PSMPOSTN 



52 
56 



SYNAD Return Code Values (Fullword) 
SYNOK 



REQUEST OK 
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SWB 



SYNRETRY 
SYNTMALF 


4 
8 


SYNABORT 


12 


SYNNVTAM 


16 


SYNOTACT 
SYNOAUTH 


20 
24 


SYNRESET 


28 



RETRY REQUEST 
TEMPORARY 
MALFUNCTION 
PERMANENT ERROR- 
ABORT SUBTASK 
NOT A VTAM COMMAND 
SENDCMD ONLY 
NOT ACTIVATED 
NO AUTHORIZATION 
FOR OPNDST ACQUIRE 
OR SIMLOGON 
RECEIVE RESET 
RESETSR 



Oporator Identification Services Return Codes (Fullword) 



OIMGOOD 
OIMBAD 



REQUEST SUCCESSFUL 
REQUEST UNSUCCESSFUL 



Routing Services Return Code Values (fullword) 



RDMASAME 
RDMNSAME 
RDMCROSS 
RDMNCROS 
RDMNOTBL 
RDMFAILD 





4 

8 

12 

16 

20 



AUTHORIZED FOR 

SAME DOMAIN 

NOT AUTHORIZED FOR 

SAME DOMAIN 

CROSS-DOMAIN 

SESSION ACTIVE 

CROSS-DOMAIN 

SESSION NOT ACTIVE 

NO ART OR DQT 

TABLES EXIST 

NO AUTHORIZATION 



Span Search Services Return Code Values (Halfword) 



SSMACT 
SSMINACT 

SSMBAD 




4 

12 



SPAN FOUND— ACTIVE 
SPAN FOUND- 
INACTIVE 
SPAN NOT FOUND 



Message Queueing Return Code Values (Halfword) 



MQSGOOD 

SWBMQSER 

MQSNFND 

MQSNBFR 
MQSTERM 




4 
8 

12 

16 



Message Queueing Indicator Values (Bit 8) 



MQSBYES 

MQSBNO 

MQSAUTH 

MQSTCT 

MQSLVAR 

MQSEXT 

MQSPPT 

MQSON 



B'00000000' 
B»00000001' 
B'OOOOOOIO* 



00000100 
00001000 
00010000 
00100000 

1' 



Parameter Alias Return Code Values (Halfword) 



PAMGOOD 
PAMSAME 
PAMBAD 



Write to Log Return Code Values (Halfword) 



WLSGOOD 
WLSNOSTG 



MSG SEND OK 

BUFFER SPEFICATION 

OPERATOR ID NOT 

FOUND 

BUFFER OBTAIN FAILED 

NCCF IN TERMINATION 



BUFFER NOT PROVIDED 
USE BUFFER PASSED 
RECEIVER OF 
AUTHORIZED MSGS 
QUEUE TO TCT 
QUEUE TO LU NAME 
EXTERNAL INVOCATION 
QUEUE TO PPT 
TURN FUNCTION ON 



REGULAR PARAMETER 

LOCATED 

NO PARAMETER FOUND 

SUCCESSFUL 

NO PARAMETER FOUND 

UNSUCCESSFUL 



SUCCESSFUL 

NO STORAGE AVAIL 



C-38 



SWB 



WLSFAIL 
WLSHCLNA 


8 

12 


WLSIOERR 


16 


WLSEOFCL 


20 



OPEN FAILURE 
HARDCOPY LOG FAILED 
QUEUE MANAGEMENT 
SERVICES FAILED 
PERMANENT I/O ERROR 
ON LOG FILE 
OPEN FAILURE AFTER 
CLOSING LOG DATA 
SET AT END OF EXTENT 



Write to Console Return Code Values (Halfword) 



WCMGOOD 
WLSNOSWB 



SUCCESSFUL 

NO SWB OBTAINED FOR 

CALL TO USER EXIT 09 



Cits Constants For Testing and Setting Return Codes (Fullword) 



DCL CITSGOOD 
DCL CITSFAIL 



CITS FUNCTION DONE 
CITS FUNCTION 
FAILED 



VSAM Services Request Indicators For SWBVRTP (Bit 8) 



SWBVGET X'Ol' 

SW3VPUT X'02' 

SWBVPNT X'03' 

SWB VERS X'04' 

DCL SWBVNRQ X'05' 

NMS Return Codes (Fullword) 

SWBNMSUC 

SWBNMINV 4 

SWBNMREJ 8 

SWBNMNOS 12 



Constants For Type Codes (Bit 8) 



GET REQUEST 
PUT REQUEST 
POINT REQUEST 
ERASE REQUEST 
ENDREQ REQUEST 



NMS SUCCESSFUL 
INVALID CALL 
ACCESS METHOD 
REJECTED REQUEST 
INSUFFICIENT 
STORAGE 



SWBNMOPN 


X'01' 


TYPE = OPEN 


SWBNMRDY 


X'03 1 


TYPE = READY 


SWBNMFWD 


X'0<+' 


TYPE = FORWARD 


SWBNMCLS 


X'02' 


TYPE = CLOSE 


SWBNMSND 


X f 05' 


TYPE = SEND 



Constants For Setting and Testing VSAM Open Services (Fullword) 

SWBVPERR 8 INCORRECT PARAMETER 

SPECIFICATION 

CNMI Services Routine Return Codes — Major (REG 15) 

SUCCESSFUL 
UNSUCCESSFUL 
INPUT BUFFER TOO 
SMALL TO BUILD RU IN 
INVALID MACRO 
SPECIFICATION 
NOT RUNNING UNDER 
DATA SERVICES TASK 
FUNCTION NOT 
SUPPORTED 

CNMI Services Routine Return Codes — Minor (REG 0) 



SWBCGOOD 
SWBCFAIL 
SWBCNPUT 



8 


SWBCNMAC 


12 


SWBCNTSK 


16 


SWBCNFNC 


24 



SWB NO SWB 
SWBBADRB 
SWBNUSRB 

SWBNSLRB 



4 
8 
12 

16 



INVALID SWB 
INVALID DSRB 
DSRB PASSED WAS 
IN USE 

UNSOLICITED DSRB 
PASSED 
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SWB 



SWBNOPID 


20 


SWBNOVRB 


24 


SWBNOSTR 


28 


SWBCNACT 
SWBCAREJ 


32 
36 


SWBCEXIT 


40 


SWBCTRNC 


44 



Constants For DSIKVS Return Codes (Bit 8) 



SWBSCGD 
SWBSCKWD 



4 


SUBSCNVL 


8 


SWBSCPAR 


9 


SWBSCINV 


12 



INVALID OPERATOR ID 
IN DSRB 

UNDEFINED RESUME 
VERB 

INSUFFICIENT NCCF 
STORAGE TO 
PROCESS REQUEST 
CNMI IS INACTIVE 
ACCESS METHOD 
REJECTED REQUEST 
USER EXIT 
REJECTED REQUEST 
DATA TRUNCATION 
OCCURRED DURING 
USER EXIT 



KEYWORD & VALUE OK 
KEYWRD NOT IN 
OPERATOR'S SCOPE 
VALUE NOT IN 
OPERATOR'S SCOPE 
NCCF INTERNAL 
USE ONLY 

INVALID PARAMETER 
PASSED 



Constants For Command List Dictionary Request Type Codes (Bit 8) 



SWBCDSUB 


X'01' 


TYPE=SUBSTITUTE 


SWBCDANA 


X'02' 


TYPE=ANALYZE 


SWBCDDEF 


X'03' 


TYPE=DEFINE 


SWBCDCHG 


X'04» 


TYPE=CHANGE 


SWBCDTRM 


X'05' 


TYPE=TERMINATE 



Command List Dictionary Symbol Type Codes (Bit 8) 
(Must be the Same as in DSICDE) 



SWBCDCS 


X' 


01' 


CONTROL SYMBOL 


SWBCDCV 


X' 


02' 


CONTROL VARIABLE 


SWBCDUV 


X' 


03' 


USER VARIABLE 


SUBCDFCN 


X' 


04' 


BUILT-IN FUNCTION 


SWBCDLBL 


X' 


05' 


LABEL 


Dm Di cti onary 


Servi ce Module 


(Fullword) 


SWBCDSUC 







CDS SUCCESSFUL 


SNBCDINV 


4 




INVALID SYMBOL 


SWBCDDUP 


8 




SYMBOL ALREADY 
DEFINED 


SWBCDNOS 


12 




INSUFFICIENT STORAGE 


SUBCDSNO 


16 




SHOULD NOT OCCUR 


SWBCDLEX 


20 




VALUELN LIMIT 
EXCEEDED 



Function Codes For Command List Control Symbols (Byte) 



Function Codes 



SWBCDCTL 


1 


SUBCDEXT 


2 


SWBCDWRT 


3 


SWBCDBWT 


4 


SWBCDGO 


5 


SWBCDIF 


6 


SWBCDPS 


7 


SWBCDTHN 


8 


For Command 


List 


SWBCDCON 


1 


SWBCDLTH 


2 


SWBCDNID 


3 


SWBCDNST 


4 



^CONTROL FUNCTION 
&EXIT FUNCTION 
SWRITE FUNCTION 
ScBEGWRITE FUNCTION 
&GOTO FUNCTION 
*IF FUNCTION 
&PAUSE FUNCTION 
&THEN FUNCTION 



SCONCAT FUNCTION 
&LENGTH FUNCTION 
SNCCFID FUNCTION 
SNCCFSTAT FUNCTION 



C-40 



SWB 



SWBCDSTR 


5 


For Command 


List C 


SWBCDAPP 
SWBCDHCY 
SWBCDLU 


1 
2 
3 


SWBCDNCT 
SWBCDOID 
SWBCDPCT 


5 
6 


SWBCDPST 


7 


SWBCDRC 


8 


SWBCDTSK 


9 


SWBCDMMD 
SWBCDTIM 


10 
11 


SWBCDDAT 


12 



4SUBSTR FUNCTION 



APPLID OF TASK 

HARDCOPY NAME 

OPERATOR STATION 

NAME 

NUMBER DOMAINS 

OPERATOR'S USERID 

NUMBER PARAMETERS 

ON CLIST INVOCATION 

CHARACTER STRING 

ON CLIST INVOCATION 

RETURN CODE FROM 

COMMAND PROCESSOR 

OR COMMAND LIST 

TASK TYPE: PPT, OST, 

OR NNT 

MSGMOD VALUE OR NULL 

5 CHARACTER TIME: 

HH:MM 

8 CHARACTER DATE: 

MM/DD/YY 



Values for Setting and Testing Routing Definition Return Codes 



SWBRDFOK 





SWBRDFND 


<t 


SWBRDFDP 


8 


SWBRDFNS 


12 


SWBRDFIP 


16 


SWBRDFNA 


20 


SWBRDFIN 


252 



SUCCESS 
NOT UNDER DST 
DUPLICATE DEFINIT 
NO STORAGE 
INVALID FUNC/SUBF 
LU TASK INACTIVE 
INVALID MACRO 
INVOCATION 



Values for Setting and Testing LUS Return Code 



SWBLUSIN 



252 



INVALID MACRO 
INVOCATION 
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TIB 



TIB 



DSITIB : 

BOUNDARY : 
LENGTH: 



MAPS THE TASK INFORMATION BLOCK FOR NCCF 

DOUBLEWORD 

850 BYTES (X'35C*) + VARIABLE LENGTH DATA 



POINTED TO BY: 



INCLUDED BLOCKS: 



TVB (TVBTIB) 
CLB (CLBTIB) 

CWB (CWBTIB) CALLERS TIB 
DSRB (DSRBTIB) TIB OF DATA SERVICES TASK 
SWB (SWBTIB) CALLERS TIB 
TVB (TVBTIB) 
CBH (TIBCBH) 

CWB (TI0CWB1,TI0CWB2>TI0CWB3,TIPCWB) 
DSB (TIODSB,TIPDSB) 

SWB (TIOSWBI,TIOSWBN,TIHSWBI,TIHSWBN,TIPSWBI,TIPSWBN) 
BUFHDR (TI0PSHDR,TI0IMHDR,TI0I2HDR,TI0I3HDR,TI0RCHDR, 
TI0SHDR,TI01HDR,TI02HDR,TIPR0CHDR,TIPSCHDR) 



OFFSETS TYPE LENGTH NAME 
(0) STRUCTURE 860 DSITIB 



DESCRIPTION 

TASK INFORMATION BLOCK 






(0) 


CHARACTER 


4 


TIBCBH 


NCCF CONTROL BLOCK HEADER 


4 


(4) 


A-ADDRESS 


4 


TIBTVB 


ADDR OF THE TVB FOR THIS TIB 


8 


(8) 


A-ADDRESS 


4 


TIBACB 


ADDR OF ACF/VTAM ACB FOR THIS 
TASK 


12 


(C) 


A-ADDRESS 


4 


TIBEXLST 


ADDR OF ACF/VTAM EXLST 


16 


(10) 


A-ADDRESS 


4 


TIBELT 


ADDR OF THE ECBLIST IN THIS 
TIB 


20 


(14) 


CHARACTER 


9 


TI3APID 


ACF/VTAM APPLID FOR THIS TASK 



20 (14) UNSIGNED 

21 (15) CHARACTER 
29 (ID) CHARACTER 

29 (ID) UNSIGNED 

30 (IE) CHARACTER 

38 (26) CHARACTER 

38 (26) SIGNED 

38 (26) UNSIGNED 



1 TIBAPIDL 

8 TIBAPIDN 

9 TIBAPWD 

1 TIBAPWDL 
8 TIBAPWDN 

62 TIBAREA1 

2 TIBPOICT 

2 TIBTSEQ 



ACF/VTAM APPLID LENGTH 

ACF/VTAM APPLID FOR THIS TASK 

ACF/VTAM PASSWORD FOR THIS 

TASK 

ACF/VTAM PASSWORD LENGTH 

ACF/VTAM PASSWORD FOR THIS 

TASK 

SUBTASK DEPENDENT AREA 

CURRENT POI-HDR ID COUNT 

VALUE 

LAST SEQUENCE 

NUMBER— ACF/TCAM 



40 


(28) 


A-ADDRESS 


4 


TIBPSSPT 


ADDR DSIPSM WORK SPACE (SEE 
TIOPSS) 


44 


(2C) 


A-ADDRESS 


4 


TIBNCCWB 


NORMAL COMMAND CWB ADDR 


48 


(30) 


A-ADDRESS 


4 


TIBICCWB 


IMMED COMMAND CWB ADDR 


52 


(34) 


A-ADDRESS 


4 


TIBMRCWB 


RCVCMD CWB ADDR 


56 


(38) 


A-ADDRESS 


4 


TIBEXSWB 


SWB ADDR FOR EXIT PROCESSING 


60 


(3C) 


A-ADDRESS 


4 


TIBNPSWB 


SWB ADDR FOR NORMAL 
PROCESSING 


64 


(40) 


A-ADDRESS 


4 


TIBNCPDB 


NORMAL COMMAND PDB ADDR 


68 


(44) 


A-ADDRESS 


4 


TIBMRPDB 


MSGRCV & RCVCMD PDB ADDR 



IMMED COMMAND PDB ADDR 



C42 



TIB 



OFFSETS TYPE LENGTH NAME 



DESCRIPTION 



76 


C4C) 


A-ADDRESS 


4 


TIBAGPDB 


AGAIN PROCESSING PDB ADDR 


80 


(50) 


A-ADDRESS 


4 


TIBNCBFR 


NORMAL CMD BUFFER ADDR 


84 


(54) 


A-ADDRESS 


4 


TIBICBFR 


IMMED CMD BUFFER ADDR 


88 


(58) 


A-ADDRESS 


4 


TIBAGBFR 


AGAIN PROCESSING CMD BUFFER 

ADDR 


92 


(5C) 


A-ADDRESS 


4 


TIBSEND 


ADDR OF PSS SEND ROUTINE 


96 


(60) 


A-ADDRESS 


4 


TIBRECV 


ADDR OF RECEIVE ROUTINE 


100 


(64) 


A-ADDRESS 


4 


TIBUFLD 


NCCF USER FIELD 


104 


(68) 


A-ADDRESS 


4 


TIBTAFFY 


POINTER TO STORAGE 


108 


(6C) 


A-ADDRESS 


4 




RESERVED 


112 


(70) 


CHARACTER 


12 


TIBAREA2 


SUBTASK DEPENDENT AREA 2 


112 


(70) 


A-ADDRESS 


4 


TIBCLBQ 


DSICLB QUEUE HEADER 


112 


(70) 


A-ADDRESS 


4 


TIBOSEXT 


ADDR OF "OPTIONAL SUBTASK" 
EXTENTION 


116 


(74) 


SIGNED 


4 


TIBCLECB 


CLIST ECB 


116 


(74) 


A-ADDRESS 


4 


TIBOSLST 


ADDR OF OPTIONAL SUBTASK LIST 
CMD BUFFERS 


120 


(78) 


SIGNED 


4 


TIBXEC3 


SECONDARY XDOMAIN ECB 


124 


(7C) 


CHARACTER 


72 


TIBSAVES 


STANDARD SAVE AREA 


196 


(C4) 


CHARACTER 


72 


TIBSAVEE 


EXIT SAVE AREA 


268 


(IOC) 


CHARACTER 


256 


TIBNDATD 


NORMAL PROC OST AUTO WORK 
AREA 


524 


(20C) 


CHARACTER 


256 


TIBEDATD 


EXIT PROC OST AUTO WORK AREA 


780 


(30C) 


CHARACTER 


16 


TIBINT 


RESERVED 


780 


(30C) 


A-ADDRESS 


4 


TIBINT1 


RESERVED 


784 


(310) 


A-ADDRESS 


4 


TIBINT2 


RESERVED 


788 


(314) 


CHARACTER 


8 


TIBMSGNM 


RESERVED 


796 


(31C) 


SIGNED 


4 


TIBRETCD 


CMD PROC RETURN VALUE 


800 


(320) 


A-ADDRESS 


4 


TIBSCTSK 


SCOPEING ACTIVE IF NOT 


804 


(324) 


SIGNED 


4 


TIBCIECB 


COMMAND INPUT ECB 


808 


(328) 


A-ADDRESS 


4 


TIBCLBWK 


(PRIVATE) CLB WORK QUEUE 


812 


(32C) 


A-ADDRESS 


4 


TIBLOGBF 


POINTER TO LOGGER OUTPUT 
BUFFER 


816 


(330) 


CHARACTER 


8 


TIBTINAM 


NCCF-GENERATED TIMER ID 



824 (338) CHARACTER 

1 

.111 1111 

825 (339) CHARACTER 
830 (33E) CHARACTER 



1 TIBFLGS 
TIBCCL 

5 TIBMMD 
2 



FLAG BYTE 

CLIST COMMAND 

RESERVED 

MSGMOD IDENTIFIER 

RESERVED--ALIGNPENT 
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TIB 



DESCRIPTION 



832 


(340) 


A-ADDRESS 


4 


TIBLOGBE 


POINTER TO LOGGER OUTPUT 
BUFFER WHEN NOT IN EXIT 


836 


(344) 


A-ADDRESS 


24 




RESERVED— CRITICAL 


860 


(35C) 


CHARACTER 





TIBEXTEN 


BEGINING OF UNIQUE EXTENSION 



OST EXTENSION 

860 (35C) STRUCTURE 6972 TIBOST 



OST EXTENSION 



860 


(35C) 


CHARACTER 


24 


TIORPLCT 


OST TASK RPLS 


860 


(35C) 


A-ADDRESS 


4 


TIOORRPL 


ADDR OF OPER RECEIVE ACF/VTAM 
RPL 


864 


(360) 


A-ADDRESS 


4 


TIOOSRPL 


ADDR OF OPER SEND ACF/VTAM 
RPL 


868 


(364) 


A-ADDRESS 


4 


TIORCRPL 


ADDR OF POI REC-CMD ACF/VTAM 
RPL 


872 


(368) 


A-ADDRESS 


4 


TIOSCRPL 


ADDR OF POI SEND-CMD ACF/VTAM 

RPL 


876 


(36C) 


A-ADDRESS 


4 


TIORARPL 


ADDR OF NNT RECEIVE ANY 
ACF/VTAM RPL 


880 


(370) 


A-ADDRESS 


4 


TIORSRPL 


ADDR OF NNT REQ SESSION 
ACF/VTAM RPL 


884 


(374) 


CHARACTER 


8 


TIONIBCT 


OST TASK NIBS 


884 


(374) 


A-ADDRESS 


4 


TIOOSNIB 


ADDR OF OPERATOR STATION NIB 


888 


(378) 


A-ADDRESS 


4 


TIOCDNIB 


ADDR OF CROSS-DOMAIN SESS NIB 


892 


(37C) 


CHARACTER 


32 


TIOELT 


ECB LIST USED FOR EXEC 
CONTROL (8 ELT ENTRIES, 4 
CHARACTERS EACH) 


892 


(37C) 
1... 


A-ADDRESS 


4 


TIOELTP 
TIOELTLA 


POINTER TO THE ECB 
LAST ECB FLAG 


924 


(39C) 


SIGNED 


4 


TIORCECB 


RECEIVE CMD ECB 


928 


(3A0) 


SIGNED 


4 




RESERVED 


932 


(3A4) 


SIGNED 


4 


TICRAECB 


RECEIVE ANY ECB 


936 


(3A8) 


SIGNED 


4 


TIOPAECB 


PAUSE ECB 


940 


(3AC) 


SIGNED 


4 


TIOLOECB 


LOGON ECB 


944 


(330) 


SIGNED 


4 


TIOQSECB 


OUTPUT QUEUE ECB 


948 


(3B4) 


CHARACTER 


8 


TIOPROFL 


ISTATUS PROFILE NAME 


956 


(3BC) 


A-ADDRESS 


4 


TIOSAUTH 


ADDR OF SPAN AUTH TABLE 


960 


(3C0) 


A-ADDRESS 


4 


TIONAUTH 


ADDR OF NCCF-NCCF AUTH TABLE 


964 
966 


(3C4) 
(3C6) 


SIGNED 
SIGNED 


2 

2 


TIOSCNT 
TIONCNT 


COUNT OF SAT ENTRIES 
COUNT OF NAT ENTRIES 


968 


(3C8) 


CHARACTER 


146 


TIOIBUF1 


OST INPUT BUFFER 1 


968 


(3C8) 


CHARACTER 


24 


TIOI1HDR 


STANDARD BUFFER HEADER 



C-44 



TIB 



OFFSETS 
992 (3E0) 


TYPE LENGTH 
CHARACTER 16 


NAME 


DESCRIPTION 
RESERVED— EXPANSION 


1008 


(3F0) 


CHARACTER 


20 


TIOI1XTH 


IMBEDDED XTH 


1028 
1034 
1114 


(404) 
(40A) 
(45A) 


CHARACTER 
CHARACTER 
SIGNED 


6 

80 
2 


TIOI1CTL 
TIOI1BDY 
TIOOITSV 


DEV CTL CHARS 

BUFFER BODY 

OIT INDEX FOR THIS OPERATOR 


1116 


(45C) 


CHARACTER 


146 


TI0IBUF2 


OST INPUT BUFFER 2 


1116 


(45C) 


CHARACTER 


24 


TI0I2HDR 


STANDARD BUFFER 


1140 


(474) 


CHARACTER 


16 




RESERVED— EXPANSION 


1156 


(484) 


CHARACTER 


20 


TI0I2XTH 


IMBEDDED XTH 


1176 
1182 
1262 

1263 


(498) CHARACTER 
(49E) CHARACTER 
(4EE) BITSTRING 
1 

.1 

..11 1111 
(4EF) CHARACTER 


6 

80 

1 

1 


TI0I2CTL 
TI0I23DY 
TIOFLGS 
TIOSVRVR 

TIOSVCTL 


DEVICE CONTROL CHARACTERS 

BUFFER BODY 

TIO INDICATOR SAVE AREA 

SAVE AREA FOR TVBAUTH 

INDICATOR 

SAVE AREA FOR TVBNAUTH 

INDICATR 

RESERVED 

ALIGNMENT 


1264 


(4F0) 


CHARACTER 


146 


TI0IBUF3 


OST INPUT BUFFER 3 


1264 


(4F0) 


CHARACTER 


24 


TI0I3HDR 


STANDARD BUFFER HEADER 


12SS 


(508) 


CHARACTER 


16 




RESERVED— EXPANSION 


1304 


(518) 


CHARACTER 


20 


TI0I3XTH 


IMBEDDED XTH 


1324 
1330 
1410 


(52C) 
(532) 
(582) 


CHARACTER 
CHARACTER 
CHARACTER 


6 

80 
2 


TI0I3CTL 

TI0I3BDY 


DEVICE CONTROL CHARACTERS 

BUFFER BODY 
ALIGNMENT 


1412 


(584) 


CHARACTER 


156 


TIORCBUF 


POI REC-CMD BUFFER 


1412 


(584) 


CHARACTER 


24 


TIORCHDR 


STANDARD BUFFER HEADER 


1436 


(59C) 


CHARACTER 


132 


TIORCBDY 


BUFFER BODY 


1568 


(620) 


CHARACTER 


188 




RESERVED 


1756 


(6DC) 


A-ADDRESS 


4 


TIOI1PTR 


FIRST DYNAMIC BUFFER 


1760 


(6E0) 


A-ADDRESS 


4 


TI0I2PTR 


SECOND DYNAMIC BUFFER 


1764 


(6E4) 


A-ADDRESS 


4 


TIOI3PTR 


THIRD DYNAMIC BUFFER 


1768 


(6ES) 


A-ADDRESS 


4 


TIORFPTR 


REFRESH DYNAMIC BUFFER 


1772 
1774 


(6EC) 

(6EE) 


SIGNED 
SIGNED 


2 
2 


TIODBLEN 


DYNAMIC BUFFER LENGTH 
RESERVED 


1776 


(6F0) 


A-ADDRESS 


4 


TIORABUF 


ADDR OF NNT RECEIVE ANY 

BUFFER 


1780 


(6F4) 


A-ADDRESS 


4 


TIOACEE 


POINTER TO RACF ACEE 


1784 


(6FS) 


A-ADDRESS 


4 


TIOFLQ 


FULL LINE QUEUE ANCHOR 


1788 


(6FC) 


A-ADDRESS 


4 




RESERVED 


1792 


(700) 


A-ADDRESS 


4 




RESERVED 


1796 


(704) 


A-ADDRESS 


4 




RESERVED 
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TIB 



OFFSETS TYPE LENGTH NAME 
1800 (708) A-ADDRESS 4 



DESCRIPTION 
RESERVED 



1804 


(70C) 


CHARACTER 


2736 


TIOPSSSP 


DSIPSM INFO BLOCK 


(TIOPSS) 


4540 


C11BC) 


CHARACTER 


364 


TIOCWB1 


A DSICWB 




4904 


(1328) 


CHARACTER 


364 


TI0CWB2 


ANOTHER DSICWB 




5268 


(1494) 


CHARACTER 


364 


TI0CWB3 


ONE MORE DSICWB 




5632 


(1600) 


CHARACTER 


600 


TIOSWBI 


DEFAULT (FIRST-IN- 
IMMED DSISW3 


-CHAIN) 


6232 


(1858) 


CHARACTER 


600 


TIOSWBN 


DEFAULT (FIRST-IN- 
NORMAL DSISW3 


-CHAIN) 


6832 


(1AB0) 


CHARACTER 


160 


TIOPDB1 


A DSIPDB 




6992 


(1B50) 


CHARACTER 


160 


.I0PDB2 


ANOTHER DSIPD3 




7152 


(1BF0) 


CHARACTER 


160 


TI0PDB3 


ONE MORE DSIPDB 




7312 


(1C90) 


CHARACTER 


160 


TI0PDB4 


AND STILL ANOTHER 


DSIPDB 


7472 


(1D30) 


CHARACTER 


360 




RESERVED 





DSIHCT TIB EXTENSION 

860 (35C) STRUCTURE 2330 

860 (35C) CHARACTER 8 

860 (35C) A-ADDRESS 4 

864 (360) A-ADDRESS 4 



TIBHCT 
TIHRPLCT 
TIHSRPL 
TIHCLRPL 



HCT EXTENTION 

HCT TASK RPLS 

ADDR OF HCT SEND ACF/VTAM RPL 

ADDR OF CLSDST ACF/VTAM RPL 



868 (364) CHARACTER 



TTUVITB^T 



HCT TASK NIBS 



868 (364) A-ADDRESS 4 TIHNIB 
872 (368) CHARACTER 12 TIHELT 



ADDR OF ACF/VTAM NIB 



ECB LIST USED FOR EXEC 
CONTROL (3 ELT ENTRIES OF 4 
CHARS EACH) 



872 



(368) 
1.. 



A-ADDRESS 



4 TIHELTP 
TIHELTLA 



POINTER TO THE ECB 
LAST ECB FLAG 



884 

884 

888 

892 

900 

900 

904 

928 

1440 

1440 

1444 



(374) 
(374) 
(378) 
(37C) 
(384) 
(384) 
(388) 
(3A0) 
(5A0) 
(5A0) 
(5A4) 



CHARACTER 

SIGNED 

A-ADDRESS 

CHARACTER 

CHARACTER 

A-ADDRESS 

CHARACTER 

CHARACTER 

CHARACTER 

A-ADDRESS 

CHARACTER 



8 TIHHTI 

4 TIHHECB 

4 TIHHINQ 

8 TIHDCHAR 

540 TIHOBUF1 

4 TIHOINXT 

24 TIHOIHDR 

512 TIHOIBDY 

540 TIH0BUF2 

4 TIH02NXT 

24 TIH02HDR 



HARDCPY TRANSFER INFORMATION 

HARDCPY ECB 

HARDCPY INPUT QUEUE 

DEVICE CHARACTERISTICS 

HCT OUTPUT BUFFER 1 

CHAIN PTR TO NEXT BUFFER 

STANDARD BUFFER HEADER 

BUFFER BODY 

HCT OUTPUT BUFFER 2 

CHAIN PTR TO NEXT BUFFER 

STANDARD BUFFER HEADER 



C-46 



TIB 



OFFSETS TYPE LENGTH NAME 
1468 (5BC) CHARACTER 512 TIH02BDY 



DESCRIPTION 
BUFFER BODY 



1980 


(7BC) 


SIGNED 


4 


TIHRVECB 


RECEIVE ECB 


1984 


(7C0) 


CHARACTER 


600 


TIHSWBI 


DEFAULT (FIC) IMMED DSISWB 


2584 


(A18) 


CHARACTER 


600 


TIHSWBN 


DEFAULT (FIC) NORMAL DSISWB 


3184 
3185 
3186 


(C70) 
(C71) 
(C72) 


CHARACTER 
CHARACTER 
CHARACTER 


1 
1 
4 


TIHRPLRC 
TIHRPLFB 
TIHRPLSN 


RPLRTNCD SAVE AREA 
RPLFDB2 SAVE AREA 
RPL SENSE SAVE AREA 



DSIPPT TIB EXTENTION 



860 


(35C) 


STRUCTURE 


2444 


TIBPPT 


PPT EXTENTION 


860 


(35C) 


CHARACTER 


8 


TIPRPLCT 


PPT TASK RPLS 


860 


(35C) 


A-ADDRESS 


4 


TIPRCRPL 


ADDR OF POI REC-CMD ACF/VTAM 

RPL 


864 


(360) 


A-ADDRESS 


4 


TIPSCRPL 


ADDR OF POI SEND-CMD ACF/VTAM 
RPL 


868 


(364) 


CHARACTER 





TIPNIBCT 


PPT TASK NIBS 


868 


(364) 


CHARACTER 


24 


TIPELT 


ECB LIST USED FOR EXEC 
CONTROL (6 ELT ENTRIES OF 4 
CHARS EACH) 


868 


(364) 


A-ADDRESS 


4 


TIPELTP 
TIPELTLA 


POINTER TO THE ECB 
LAST ECB FLAG 


892 


(37C) 


SIGNED 


4 


TIPRCECB 


RECEIVE CMD ECB 


896 


(380) 


CHARACTER 


156 


TIPRCBUF 


POI REC-CMD BUFFER 


896 


(380) 


CHARACTER 


24 


TIPRCHDR 


STANDARD BUFFER HEADER 


920 


(398) 


CHARACTER 


132 


TIPRCBDY 


BUFFER BODY 


1052 


(41C) 


CHARACTER 


116 




RESERVED 


1168 


(490) 


CHARACTER 


364 


TIPCWB 


DSICWB FOR PPT 


1532 


(5FC) 


CHARACTER 


160 


TIPPDB 


DSIPDB FOR DSIPPT 


1692 


(69C) 


CHARACTER 


600 


TIPSW3I 


DEFAULT (FIC) IMMED DSISWB 


2292 


(8F4) 


CHARACTER 


600 


TIPSWBN 


DEFAULT (FIC) NORMAL DSISWB 


2892 


(B4C) 


CHARACTER 


32 


TIPTILNK 


TIMER LIFEBOAT LINKAGE 


2924 


(B6C) 


A-ADDRESS 


4 


TIPNCPTR 


NORMAL CMD DYNAMIC BFR 


2928 
2930 


(B70) 
(B72) 


SIGNED 
SIGNED 


2 
2 


TIPNCLEN 


RESERVED 

NORMAL CMD BFR LENGTH 


2932 


(B74) 


SIGNED 


4 


TIPCORNX 


INDEX OF LAST TIPCOREL ENTRY: 
USE C S LOGIC 


2936 


(B78) 


CHARACTER 


200 


TIPCOREL 


SOLICITED MSG CORRELATION 
TABLE 


2936 


(B78) 


CHARACTER 


10 


TIPCOREN 


TIPCOREL ENTRY OVERLAY 



2936 (B78) BITSTRING 
2938 (B7A) CHARACTER 



2 TIPCORSQ 
8 TIPCORIG 



SENDCMD SEQUENCE NUMBER 
ORIGINATOR I.D. 



Appendix C. NCCF Control Blocks C-47 



TIB 



OFFSETS TYPE LENGTH NAME 
3136 (C40) A-ADDRESS 4 TIPTIMRQ 



DESCRIPTION 

ADDR TIMER REQEST QUEUE 



3140 


(C44) 


SIGNED 


4 


TIPTMECB 


SERVICE TIMER ELEMENT ECB 


3144 


(C48) 


SIGNED 


4 


TIPTIWK 


OUTSTANDING TIMER UNIT VALUE 


3148 


(C4C) 


CHARACTER 


156 


TIPNCBFR 


PPT NORMAL CMD BUFFER 


3148 


(C4C) 


CHARACTER 


24 


TIPNCHDR 


STANDARD BUFFER HEADER 


3172 


(C64) 


CHARACTER 


132 


TIPNCBDY 


BUFFER BODY 



DSITCT TIB EXTENSION 

860 (35C) STRUCTURE 4000 TIBTCT 



TCT EXTENSION 



860 


(35C) 


CHARACTER 


4000 




4000 BYTE EXTENSION 




860 


(35C) 


CHARACTER 





TICEND 


END OF EXTENSION 




DSIMNT 
860 


TIB EXTENTION 
(35C) STRUCTURE 


1984 


TIBTIM 


MNT TIB EXTENTION 




860 


(35C) 


CHARACTER 


16 


TIMRPLCT 


MNT TASK RPLS 




860 


(35C) 


A-ADDRESS 


4 


TIMRPLX 


EXITS RPL ADDR 




864 


(360) 


A-ADDRESS 


4 


TIMRPLM 


MAIN TASK RPL ADDR 




868 


(364) 


A-ADDRESS 


4 


TIMRPLXR 


CROSS-DOMAIN RECEIVE RPL 




872 


(368) 


A-ADDRESS 


4 


TIMRPLXS 


CROSS-DOMAIN SEND RPL 




876 
876 


(36C) 
(36C) 


CHARACTER 
A-ADDRESS 


8 

4 


TIMNIBCT 
TIMNIBX 


MNT TASK NIBS 
EXITS NIB ADDR 


- 


880 


(370) 


A-ADDRESS 


4 


TIMNIBM 


MAIN TASK NIB ADDR 




884 


(374) 


A-ADDRESS 


4 


TIMXACB 


EXIT ACB ADDR 




888 


(378) 


A-ADDRESS 


72 


TIMXSVA 


EXITS SAVE AREA (18 ITEMS OF 
FIXED 31 EACH) 




960 


(3C0) 


CHARACTER 


24 


TIMXNNPL 


EXIT NNT TERM PARM LIST 




960 
969 
977 


(3C0) 
(3C9) 
(3D1) 


CHARACTER 
CHARACTER 
CHARACTER 


9 
8 
3 


TIMXNNPU 
TIMXNNLU 
TIMXNNPD 


PU NAME 
LU NAME 
PADDING 




9S0 


(3D4) 


A-ADDRESS 


4 


TIMXNNSW 


SWB ADDR 




984 
1135 


(3D8) 
(46F) 


CHARACTER 
CHARACTER 


151 
5 


TIMMSBUF 


EXIT MESSAGE BUFFER 
RESERVED 




1140 


(474) 


CHARACTER 


8 


TIMSVLUN 


SAVE LU NAME 




1148 


(47C) 


SIGNED 


4 


TIMERCOD 


ENTRY REASON CODE 




1152 
1161 


(480) 
(489) 


CHARACTER 
CHARACTER 


9 

3 


TIMDOMID 


DOMAIN ID 
RESERVED 




1164 


(4SC) 


CHARACTER 


96 


TIMLGSPS 


LOGON EXIT SESSION PARMS 




1260 


(4EC) 


CHARACTER 


16 


TIMDEVCH 


DEVICE CHARACTERISTICS 




1260 


(4EC) 


CHARACTER 


1 




SPACER 





C-48 



TIB 



OFFSETS 

1261 (4ED) 

1262 (4EE) 


TYPE LENGTH 

CHARACTER 1 
CHARACTER 1 


NAME 

TIMDEVTP 
TIMDEVMD 


DESCRIPTION 

DEVICE TYPE 
MODEL TYPE 


1276 


(4FC) 


SIGNED 


4 


TIMGETSA 


GETMAIN SAVE AREA 


1230 


(500) 


SIGNED 


4 


TIMSVR14 


EXIT REG14 SAVER 


1284 


(504) 


CHARACTER 


136 


TIMMSGPL 


EXIT DSIMMP MSG P-LIST 


1420 


(58C) 


CHARACTER 


200 


TIMXWKA 


EXITS WORK AREA 


1620 


(654) 


CHARACTER 


20 


TIMXRBUF 


CROSS-DOMAIN EXIT BUFFER 


1640 


(668) 


SIGNED 


4 


TIMXMRTY 


MACRO RETRY COUNT 


1644 


(66C) 


CHARACTER 


600 


TIMSWBX 


EXIT SWB 


2244 


(8C4) 


CHARACTER 


600 


TIMSWBXL 


LOGON EXIT SWB 





(0) 


STRUCTURE 


4 


TIBELTE 


AN ELT ENTRY 





(0) 
1... 


A-ADDRESS 


4 


TIBEPTR 
TIBELAST 


ADDR OF AN ECB 

1=LAST ENTRY IN THE LIST 





(0) 


STRUCTURE 


4 


TIBBLKE 


TIXBLK MAP 





(0) 


SIGNED 


4 


TIBECB 


AN ECB 




1 


(0) 
1... 
.1.. 
(1) 


bitstring 
'a : address 


1 
3 


TIBECBF 
TIBECBWT 
TIBECBPO 
TIBECBB 


ECB FLAGS 
WAIT INDICATOR 
POST INDICATOR 
ECB BODY 



STANDARD NCCF BUFFER HEADER 

(0) STRUCTURE 24 BUFHDR 



BUFFER HEADER 



(0) SIGNED 
(2) SIGNED 



2 HDRMLENG 
2 HDRBLENG 



MESSAGE LENGTH 

LENGTH OF BUFFER IN USE 



(4) BITSTRING 

(4) BITSTRING 
11 

(5) CHARACTER 

(6) SIGNED 



HDRIND 

HDRNMPOS 

HDRLNTYP 



HEADER INDICATORS 



1 HDRMTYPE 

2 HDRTDISP 



USED TO SAVE NM POST CODE FOR 
DELAYED D5T POST 
MULTILINE TYPE (SEE 
CONSTANTS) 
MESSAGE TYPE 
DISPLACEMENT TO 1ST TEXT 
LOCATION FROM BEGINNING OF 
THIS HEADER 



8 


(8) 


SIGNED 


4 


HDRTSTMP 


TIME STAMP FIELD 




12 


(C) 


CHARACTER 


8 


HDRDOMID 


DOMAIN ID 




20 


(14) 


CHARACTER 


4 


HDRPOI 


HDR USED FOR POI 


COMMANDS 


20 


(14) 


A-ADDRESS 


4 


HDRWLHCT 


HCT TVB ADDR FOR 


LOGGING SVCS 



20 (14) BITSTRING 

21 (15) BITSTRING 

22 (16) SIGNED 
22 (16) UNSIGNED 



1 HDRPID 

1 HDRPSTAT 

2 HDRPMSG 
2 HDRCORID 



POI HDR ID 
POI STATUS FIELDS 
UNIQUE MSG NUMBER FIELD 
DELIVER RU CORRELATION ID 



24 



(18) CHARACTER 



HDRTEXT 



NON MESSAGE COMMAND TEXT 



Appendix C. NCCF Control Blocks C-49 



TIB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 



MESSAGE COMMAND EXTENSION 



24 


C18) 


STRUCTURE 


12 


HDRMCEXT 


MSG CMD INFORMATION 


24 


(18) 


A-ADDRESS 


4 


HDRNEXTM 


NEXT MSG ON QUEUE 


2S 


(1C) 


CHARACTER 


8 


HDRSENDR 


OPERATOR ID OF SENDER 


36 


(24) 


CHARACTER 





HDRMSG 


MESSAGE-CMD TEXT 





(0) 


STRUCTURE 


36 


HDRMAR 


MARGIN DATA OF PRINT LINE 






(0) 


CHARACTER 


1 


MARMTYPE 


TYPE OF MESSAGE 


1 


(1) 


CHARACTER 


2 




BLANKS 


3 


(3) 


CHARACTER 


8 


MARMTIME 


HH:MM:SS 


3 


(3) 


CHARACTER 


2 


MARMHH 


HOURS 


5 


(5) 


CHARACTER 


1 


MARMC1 


FIRST COLON 


6 


(6) 


CHARACTER 


2 


MARMMM 


MINUTES 


8 


(8) 


CHARACTER 


1 


MARMC2 


SECOND COLON 


9 


(9) 


CHARACTER 


2 


MARMSS 


SECONDS 


11 


(B) 


CHARACTER 


2 




BLANKS 


13 


(D) 


CHARACTER 


8 


MARMDOM 


DOMAIN ID 


21 


(15) 


CHARACTER 


2 




BLANKS 


23 


(17) 


CHARACTER 


8 


MARMOPID 


OPERATOR ID 


31 


(IF) 


CHARACTER 


5 




MORE BLANKS 



DSIOST TIB EXTENTION 






(0) 


STRUCTURE 


2736 


TIOPSS 


PRESENTATION SERVICES INFO 
(POINTED TO BY TIBPSSPT) 





(0) 


CHARACTER 


1036 


TIOOWBUF 


PSS OUTPUT WORK BUFFER 





(0) 


A-ADDRESS 


4 


TIOOWBGN 


ADDRESS OF BEGINNING OF 
BUFFER 


4 


(4) 


A-ADDRESS 


4 


TIOOWEND 


ADDR END OF BUFFER 


8 


(8) 


SIGNED 


4 


TIOOWLEN 


LENGTH OF BUFFER 


12 


(C) 


CHARACTER 


1024 


TIOOWBDY 


BUFFER BODY 


1036 


(40C) 


CHARACTER 


432 


TIOMSAVE 


RESERVED 


1468 


(5BC) 


CHARACTER 


432 


TIOESAVE 


SAVE AREA ARRAY (6 ITEMS OF 
72 BYTES EACH) 


1900 


(76C) 


A-ADDRESS 


4 


TIOOWNXT 


ADDR OF NEXT BLOCK OF DATA TO 
BE SENT 


1904 


(770) 


A-ADDRESS 


4 


TIOOWAVL 


ADDR OF NEXT AVAILABLE 
LOCATION IN TIOOWBDY 


1908 


(774) 


CHARACTER 


536 


TIOPSSND 


PSM OUTPUT SEND BUFFER 


1908 


(774) 


CHARACTER 


24 


TIOPSHDR 


STANDARD BUFFER HEADER 


1932 


(78C) 


CHARACTER 


512 


TIOPSBDY 


BUFFER BODY 


2444 


(98C) 


A-ADDRESS 


4 


TIOCFMAT 


ADDR OF CURRENT DEVICE FORMAT 



2448 (990) CHARACTER 



8 TIONFMAT 



NAME OF NEW DEVICE FORMAT 



C-50 



TIB 



OFFSETS 

2456 (998) 

2458 (99A) 

2459 (99B) 



2494 
2495 



TYPE 

SIGNED 

UNSIGNED 

UNSIGNED 



LENGTH NAME 



TIOSLCNT 
TIOSLINP 
TIOMARLN 



DESCRIPTION 

CURRENT SCREEN LINE COUNT 
INPUT LINE COUNT 
SCREEN MARGIN LENGTH 



2460 


C99C) 


CHARACTER 


8 


TIODCHAR 


OST DEVICE CHARACTERISTICS 


2460 


(99C) 


SIGNED 


2 


TIOMAXRU 


MAX RU SIZE OUTBOUND 


2468 


(9A4) 


CHARACTER 


4 


TIOSCREN 


DEVICE SCREEN CHARACTERISTICS 


2468 
2470 


C9A4) 
(9A6) 


SIGNED 
SIGNED 


2 
2 


TIOROWCT 
TIOCOLCT 


MAX ROWS ON SCREEN 
MAX COLUMNS ON SCREEN 


2472 


C9A8) 


SIGNED 


4 


TIOWRECB 


WRAP ECB 


2476 


(9AC) 


SIGNED 


4 


TIOSDECB 


SEND ECB 


2480 


(9B0) 


A-ADDRESS 


4 


TIORSPHD 


ADDR OF RESPONSE MSG QUEUE 


2484 


(9B4) 


A-ADDRESS 


4 


TIORSPTR 


ADDR OF RESPONSE MSG 
POCESSING POINTER 


2488 


(938) 


A-ADDRESS 


4 


TIOINADR 


ADDR OF INPUT DATA AREA 



:492 (9BC) CHARACTER 



1.. 
.1. 



.1 
..1 



2493 (9BD) 

1.. 
.1. 



1. 
.1 



.1 



...1 
CHARACTER 



.1. . 
..1 . 



(9BE) CHARACTER 
(9BF) UNSIGNED 



TIOAWRAP 
TIOSCNUL 

TIOFSTLN 
TIOSCNRF 

TIONEWFM 

TIOIMSND 

TIOFSENT 

TIOSCNLK 
TI0PSIN2 

TIOEWA 
TIOPSOFM 

TIOPSMFL 

TIOCMDSD 

TIOCMDGO 

TIOFWRAP 

TIOSNDLK 
TIOSTROW 



PRESENTATION SERVICES 

INDICATORS 

l=AUTOWRAP IS ACTIVE 

1=SCREEN UNLOCK (RESET 

OPERATION FIELD ON NEXT SEND) 

1=FIRST LINE OF A MSG BLOCK 

1=SCREEN REFRESH (REFRESH 

CURRENT FORMAT) 

1=REPLACE NEW FORMAT ON NEXT 

SEND 

1=IMMEDIATE MSG WAITING TO BE 

SENT 

l=FORMAT SENT (SCREEN HAS 

BEEN REFRESHED) 

1=SCREEN IS LOCKED 

MORE PRESENTATION SERVICES 

INDICATORS 

1=ERASE/WRITE ALT REQUIRED 

l=OUTPUT PROCESSING IN 

FULL-LINE MODE 

l=HOLD BUFFER IN FULL-LINE 

MODE 

l=OUTPUT TO INPUT LINE 

0=NORMAL OUTPUT 

1 = CMD REFRESH ACTIVE 

0=REFRESH NOT ACTIVE 

1=FULL-LINE AUTOWRAP 0=NO 

FULL-LINE AUTOWRAP 

SEND LOCK (SEND IN PROG) 

SCREEN TIMER ROW ADDRESS 



2496 (9C0) UNSIGNED 

2497 (9C1) UNSIGNED 

2498 (9C2) UNSIGNED 

2499 (9C3) UNSIGNED 



TIOSTCOL 
TIOIMROW 
TIOIMCOL 
TIORYROW 



SCREEN TIMER COLUMN ADDRESS 
IMMED MSG AREA ROW ADDRESS 
IMMED MSG AREA COLUMN ADDRESS 
READY MSG ROW ADDRESS 



2500 (9C4) UNSIGNED 

2501 (9C5) UNSIGNED 

2502 (9C6) UNSIGNED 

2503 (9C7) UNSIGNED 



TIORYCOL 
TIOSLROW 
TIOSLCOL 
TIOCDROW 



READY MSG COLUMN ADDRESS 
SCREEN LOCK IND ROW ADDRESS 
SCREEN LOCK IND COL ADDRESS 
COMMAND AREA ROW ADDRESS 



2504 (9C8) UNSIGNED 

2505 (9C9) UNSIGNED 

2506 (9CA) CHARACTER 



TIOCDCOL 
TIOCLINP 



COMMAND AREA COLUMN ADDRESS 
CURRENT INPUT I "NE COUNT 
FOR FUTURE USE/ALIGNMENT 



Appendix C. NCCF Control Blocks C-51 



TIB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 



2508 


(9CC) 


A-ADDRESS 


4 


TIOFTTBL 


PTR TO FMT TABLE FOR THIS 
SESSION 


2512 


(9D0) 


CHARACTER 


104 


TIOIMBUF 


IMMED MSG BUFFER 


2512 


(9D0) 


CHARACTER 


24 


TIOIMHDR 


STANDARD BUFFER HEADER 


2536 


(9E8) 


CHARACTER 


80 


TIOIMBDY 


TEXT AREA 


2616 


(A38) 


SIGNED 


4 


TIOPSFLC 


OUTPUT LINE COUNTER FOR 
FULL-LINE NODE 


2620 


(A3C) 


A-ADDRESS 


4 


TIOPSIFR 


PSS IFR POINTER 


2624 


(A40) 


SIGNED 


4 


TIOPSIFL 


PSS IFR LENGTH 


2628 


(A44) 


A-ADDRESS 


4 


TIOPSSWB 


PSS SWB 


2632 


(A48) 


A-ADDRESS 


4 


TIOAPECB 


ASYPANEL ECB PTR 


2636 


(A4C) 


A-ADDRESS 


4 


TIOAPBUF 


ASYPANEL INPUT BUFFER 


2640 
2642 


(A50) 
(A52) 


SIGNED 
SIGNED 


2 
2 


TIOAPBLN 
TIOAPTLN 


ASYPANEL BUFFER LENGTH 
TEMPORARY BUFFER LENGTH 


2644 


(A54) 


A-ADDRESS 


4 


TIOAPPTR 


TEMPORARY PANEL POINTER 


2648 


(A58) 


A-ADDRESS 


4 


TIOAPRLN 


RETURNED LENGTH POINTER 


2652 


(A5C) 


CHARACTER 


84 




RESERVED 



SCOPECLASS FLAGS EXTENTION 

(0) STRUCTURE TIBSCO 



TASK SCOPE FLAGS (POINTED TO 
BY TIBSCTSK) 



u; on«r\Mv, i c.% 



l cno in io vmmAdlc 



STRUCTURE TO MAP DSIMMP 
WILL COVER MVTMSGPL AND 



MTM MESSAGE PROCESSOR PARM LIST WHICH 
TIMMSGPL PARMAMETER LIST AREAS 






(0) 


STRUCTURE 


137 


MMPPARML 


DSIMMP PARM LIST 





(0) 


A-ADDRESS 


72 


MMPPLSAV 


SAVE AREA (18 3 
31 EACH) 


[TEMS OF FIXED 


72 


(48) 


A-ADDRESS 


4 


MMPPLSWB 


SWB ADDRESS 




76 


(4C) 


A-ADDRESS 


4 


MMPPLBUF 


MSG BUFFER ADDRESS 


so 


(50) 


A-ADDRESS 


4 


MMPPLPOP 


OPERATOR ID ADDR FOR QUEUEING 


84 

S7 


(54) 
(57) 


CHARACTER 
CHARACTER 


3 

1 


MMPPLPID 
MMPPLRV1 


MESSAGE ID 
RESERVED 




S2> 


(58) 


A-ADDRESS 


4 


MMPPLVA1 


MSG VARIABLE 1 


ADDRESS 


92 


(5C) 


A-ADDRESS 


4 


MMPPLVA2 


MSG VARIABLE 2 


ADDRESS 


96 


(60) 


A-ADDRESS 


4 


MMPPLVA3 


MSG VARIABLE 3 


ADDRESS 


100 


(64) 


A-ADDRESS 


4 


MMPPLVA4 


MSG VARIABLE 4 


ADDRESS 


104 


(68) 


A-ADDRESS 


4 


MMPPLVA5 


MSG VARIABLE 5 


ADDRESS 



108 



(6C) A-ADDRESS 



4 MMPPLVA6 



MSG VARIABLE 6 ADDRESS 



C-52 



TIB 



OFFSETS TYPE LENGTH NAME 
112 (70) A-ADDRESS 4 MMPPLVA7 



DESCRIPTION 

MSG VARIABLE 7 ADDRESS 



116 


(74) A-ADDRESS 


4 


MMPPLVA8 


MSG VARIABLE 8 ADDRESS 


120 


(78) A-ADDRESS 


4 


MMPPLVA9 


MSG VARIABLE 9 ADDRESS 



124 


(7C) 


UNSIGNED 


1 


MMPPLVL1 


MSG VARIABLE 1 LENGTH 


125 


(7D) 


UNSIGNED 


1 


MMPPLVL2 


MSG VARIABLE 2 LENGTH 


126 


(7E) 


UNSIGNED 


1 


MMPPLVL3 


MSG VARIABLE 3 LENGTH 


127 


(7F) 


UNSIGNED 


1 


MMPPLVL4 


MSG VARIABLE 4 LENGTH 


128 


(80) 


UNSIGNED 


1 


MMPPLVL5 


MSG VARIABLE 5 LENGTH 


129 


(81) 


UNSIGNED 


1 


MMPPLVL6 


MSG VARIABLE 6 LENGTH 


130 


(82) 


UNSIGNED 


1 


MMPPLVL7 


MSG VARIABLE 7 LENGTH 


131 


(83) 


UNSIGNED 


1 


MMPPLVL8 


MSG VARIABLE 8 LENGTH 


132 


(84) 


UNSIGNED 


1 


MMPPLVL9 


MSG VARIABLE 9 LENGTH 


133 


(85) 


CHARACTER 


1 


MMPPLFLG 


MSG REQUEST TYPE FLAG 




1... 


• * ♦ • • 




MMPPLMBS 


1=BUILD MSG 




.1.. 


» • • • • 




MMPPLWCS 


1=WRITE MSG TO SYS OP 




..1 


• * ♦ * ♦ 




KMPPLQOP 


1=QUEUE TO OPER ID 






L 




MMPPLQAR 


1=QUEUE TO AUTHORIZED 
RECEIVER 




♦ * * 


. 1111 




MMPPLRV2 


RESERVED 


134 


(86) 


CHARACTER 


3 


MMPPLRV3 


RESERVED 



Appendix C. NCCF Control Blocks C-53 



TIB 



CROSS REFERENCE 



BUFHDR 





(0) 


TIBAPWD 


29 (ID) 


TIHELTP 


872(368) 


DSITIB 





rn) 


TIBAPWDL 


29 (ID) 


TIHHECB 


884(374) 


HDRBLENG 


2 


<<Li 


TIPAPWDN 


30 (IE) 


TIHHINQ 


888(378) 


HDRCORID 


22 


(16) 


TIBAREA1 


38 (26) 


TIHHTI 


884(374) 


HDRDONID 


12 


(C) 


TIBAREA2 


112 (70) 


TIHNIB 


868(364) 


HDRIND 


4 


(4) 


TIBBLKE 


(0) 


TIHNIBCT 


868(364) 


HDRLNTYP 


4 


X'CO 1 


TIBCBH 


(0) 


TIH0BUF1 


900(384) 


HDRMAR 





(0) 


TIBCCL 


824 X'80» 


TIH0BUF2 


1440(5A0) 


HDRMCEXT 


24 


(18) 


TIBCI~CB 


804(324) 


TIH01BDY 


928(3A0) 


HDRMLENG 





(0) 


TIBCLB^ 


112 (70) 


TIH01HDR 


904(388) 


HDRMSG 


36 


(24) 


TIBCLBWK 


808(328) 


TIH01NXT 


900(384) 


HDRMTYPE 


5 


(5) 


TIBCLECB 


116 (74) 


TIH02BDY 


1468(5BO 


HDRNEXTM 


24 


(18) 


TIBECB 


(0) 


TIH02HDR 


1444(5A4) 


HDRNMPOS 


4 


(4) 


TIBECBB 


1 (1) 


TIH02NXT 


1440(5A0) 


HDRPID 


20 


(14) 


TIBECBF 


(0) 


TIHRPLCT 


860(350 


HDRPMSG 


22 


(16) 


TIBECBPO 


X'40 f 


TIHRPLFB 


3185CC71) 


HDRPOI 


20 


(14) 


TIBECBUT 


X'80 T 


TIHRPLRC 


3184(C70) 


HDRPSTAT 


21 


(15) 


TIBEDATD 


524(200 


TIHRPLSN 


3186(C72) 


HDRSENDR 


28 


(1C) 


TIBELAST 


X'80 f 


TIHRVECB 


1980(7BO 


HDRTDISP 


6 


(6) 


TIBELT 


16 (10) 


TIHSRPL 


860(350 


HDRTEXT 


24 


(18) 


TIBELTE 


(0) 


TIHSWBI 


1984(7C0) 


HDRTSTMP 


8 


(8) 


TIBEPTR 


(0) 


TIHSWBN 


25S4(A18) 


HDRWLHCT 


20 


(14) 


TIBEXLST 


12 (C) 


TIMDEVCH 


1260(4EO 


MARMC1 


5 


(5) 


TIBEXSWB 


56 (38) 


TIMDEVMD 


1262(4EE) 


MARMC2 


8 


(8) 


TIBEXTEN 


860(350 


TIMDEVTP 


126K4ED) 


MARMDOM 


13 


(D) 


TIBFLGS 


824(33S) 


TIMDOMID 


1152(480) 


MARMHH 


3 


(3) 


TIBHCT 


860(350 


TinERCOD 


1148(470 


MARMMM 


6 


(6) 


TIBICBFR 


84 (54) 


TIMGETSA 


1276(4FO 


MARMOPID 


23 


(17) 


TIBICCWB 


48 (30) 


TIMLGSPS 


1164(480 


MARNSS 


9 


(9) 


TIBICPDB 


72 (48) 


TIMMSBUF 


9S4(3D8) 


MARMTIME 


w 


(3) 


TIBINT 


780(300 


TIMMSGPL 


1284(504) 


MARMTYPE 





(0) 


TIBINT1 


780(300 


TIMNIBCT 


876(360 


MMPPARML 





(0) 


TIBINT2 


784(310) 


TIMNIBM 


880(370) 


MMPPLBUF 


76 


(4C) 


TIBL^GBE 


832(340) 


TIMNIBX 


876(360 


KMPPLFLG 


133 


(85) 


TIBLL 'BF 


812(320 


TIMRPLCT 


860(350 


KMPPLMBS 


133 


X<80' 


TIBMMJ 


825(339) 


TIMRPLM 


864(360) 


MMPPLPID 


84 


(54) 


TIBMRCWB 


52 (34) 


TIMRPLX 


860(350 


MMPPLPOP 


80 


(50) 


TIBMRPDB 


68 (44) 


TIMRPLXR 


868(364) 


MMPPLQAR 


l ^ 


X'lQ' 


TTUMq^K'^l 


788(314) 


TTMRPI YS 


872(368) 


MMPPLQOP 


133 


X'20' 


TIBNCBFR 


80 (50) 


TIMSVLUN 


1140(474) 


MMPPLRV1 


87 


(57) 


TIBNCCWB 


44 (2C) 


TIMSVR14 


1280(500) 


MMPPLRV2 


133 


X f 0F T 


TIBNCPDB 


64 (40) 


TIMSWBX 


1644(660 


MMPPLRV3 


134 


(86) 


TIBNDATD 


268(100 


TIMSWBXL 


2244(8C4) 


MMPPLSAV 





(0) 


TIBNPSWB 


60 (3C) 


TIKXACB 


884(374) 


MMPPLSkB 


72 


(48) 


TIBOSEXT 


112 (70) 


TIMXMRTY 


1640(668) 


MMPPLVA1 


88 


(58) 


TIBOSLST 


116 (74) 


TIMXNNLU 


969(3C9) 


MMPPLVA2 


92 


(5C) 


TIBOST 


860(350 


TIMXNNPD 


977(3D1) 


MMPPLVA3 


96 


(60) 


TIBPOICT 


3S (26) 


TIMXNNPL 


960(3C0) 


KMPPLVA4 


100 


(64) 


TIBPPT 


860(350 


TIMXNNPU 


960(3C0) 


MMPPLVA5 


104 


(68) 


TIBPSSPT 


40 (28) 


TIMXNNSW 


9S0(3D4) 


MMPPLVA6 


108 


(6C) 


TIBRECV 


96 (60) 


TIMXRBUF 


1620(654) 


MKPPLVA7 


112 


(70) 


TIBRETCD 


796(310 


TIMXSVA 


888(378) 


KMPPLVA8 


116 


(74) 


TIBSAVEE 


196 (C4) 


TIMXWKA 


1420(580 


MMPPLVA9 


120 


(78) 


TIBSAVES 


124 (7C) 


TIOACEE 


17S0(6F4) 


MMPPLVL1 


124 


(7C) 


TIBSCO 


(0) 


TIOAPBLN 


2640(A50) 


MMPPLVL2 


125 


(7D) 


TIBSCTSK 


800(320) 


TIOAPBUF 


2636(A4C) 


MMPPLVL3 


126 


(7E) 


TIBSEND 


92 (5C) 


TIOAPECB 


2632(A48) 


MMPPLVL4 


127 


(7F) 


TIBTAFFY 


104 (68) 


TIOAPPTR 


2644(A54) 


MMPPLVL5 


128 


(SO) 


TIBTCT 


860(350 


TIOAPRLN 


2648(A58) 


MMPPLVL6 


129 


(81) 


TIBTIM 


860(350 


TIOAPTLN 


2642(A52) 


MMPPLVL7 


130 


(82) 


TIBTINAM 


816(330) 


TI0A14RAP 


2492 X'80* 


MMPPLVL8 


131 


(83) 


TIBTSEQ 


38 (26) 


TIOCDCOL 


2504(9C8) 


MMPPLVL9 


132 


(84) 


TIBTVB 


4 (4) 


TIOCDNIB 


888(378) 


MMPPLWCS 


133 


X'40 1 


TIBUFLD 


100 (64) 


TIOCDROW 


2503(9C7) 


TIBACB 


8 


(8) 


TIBXECB 


120 (78) 


TIOCFMAT 


2444(980 


TIBAGBFR 


88 


(58) 


TICEND 


860(350 


TIOCLINP 


2505(9C9) 


TIBAGPDB 


76 


(4C) 


TIHCLRPL 


864(360) 


TIOCMDGO 


2493 X'08 f 


TIBAPID 


20 


(14) 


TIHDCHAR 


892(370 


TIOCMDSD 


2493 X'10' 


TIBAPIDL 


20 


(14) 


TIHELT 


872(368) 


TIOCOLCT 


2470(9A6) 


TIBAPIDN 


21 


(15) 


TIHELTLA 


872 X'80» 


TI0CWB1 


454(11BC) 



C-54 



TIB 



CROSS REFERENCE 



TI0CWB2 


490(1328) 


TIOPSIFR 


2620(A3O TIPSWBN 2292(8F4) 


TIQCWB3 


526(1494) 


TIOPSIND 


2492(9BO TIPTILNK 2892(B4C) 


TIODBLEN 


1772(6EC) 


TI0PSIN2 


2493(9BD) TIPTIMRQ 3136(C40) 


TIODCHAR 


2460(990 


TIOPSMFL 


2493 X'20* TIPTIWK 3144(C48) 


TIOELT 


892(370 


TIOPSOFM 


2493 X'40 f TIPTMECB 3140(C44) 


TIOELTLA 


892 X f 80 f 


TIOPSS 


(0) 




TIOELTP 


892(370 


TIOPSSND 


1908(774) 




TIOESAVE 


1468(5BO 


TIOPSSSP 


1804(700 




TIOEWA 


2493 X'80 f 


TIOPSSWB 


2628(A44) 




TIOFLGS 


1262(4EE) 


TIOQSECB 


944(3B0) 




TIOFLQ 


1784(6F8) 


TIQRABUF 


1776(6F0) 




TIOFSENT 


2492 X'02 f 


TIORAECB 


932(3A4) 




TIOFSTLN 


2492 X'20' 


TIORARPL 


876(360 




TI0FTT3L 


2508C9CC) 


TIORCBDY 


1436(590 




TIOFWRAP 


2493 X T 04* 


TIORCBUF 


1412(584) 




TIOIBUF1 


968(3C8) 


TIORCECB 


924(390 




TI0IBUF2 


1116(450 


TIORCHDR 


1412(584) 




TI0IBUF3 


1264(4F0) 


TIORCRPL 


868(364) 




TIOIMBDY 


2536(9E8) 


TIORFPTR 


176S(6E8) 




TIOIKBUF 


2512(9D0) 


TIOROWCT 


2468(9A4) 




TIOIMCOL 


2498(9C2) 


TIORPLCT 


860(350 




TIOIKHDR 


2512(9D0) 


TIORSPHD 


2480(9B0) 




TIOIMROW 


2497(9C1) 


TIORSPTR 


2484(9B4) 




TIOIKSND 


2492 X'04' 


TIORSRPL 


880(370) 




TIOINADR 


2488(9B8) 


TIORYCOL 


2500(9C4) 




TIOI1BDY 


1034(40A) 


TIORYROW 


2499(9C3) 




TIOI1CTL 


1028(404) 


TIOSAUTH 


956C3BC) 




TIOI1HDR 


968(3C8) 


TIOSCNLK 


2492 X'01 f 




TIOI1PTR 


1756C6DC) 


TIOSCNRF 


2492 X'10» 




TIOI1XTH 


1008(3FO) 


TIOSCNT 


964(3C4) 




TI0I2BDY 


1182(49E) 


TIOSCNUL 


2492 X'40' 




TI0I2CTL 


1176(498) 


TIOSCREN 


246S(9A4) 




TI0I2HDR 


1116(450 


TIOSCRPL 


872(368) 




TI0I2PTR 


1760(6E0) 


TIOSDECB 


2476(9AO 




TI0I2XTH 


1156(4S4) 


TIOSLCNT 


2456(998) 




TI0I3BDY 


1330(532) 


TIOSLCOL 


2502(9C6) 




TI0I3CTL 


1324(520 


TIOSLINP 


2458(99A) 




TI0I3HDR 


1264(4F0) 


TIOSLROW 


250K9C5) 




TI0I3PTR 


1764(6E4) 


TIOSNDLK 


2494(9BE) 




TI0I3XTH 


1304(518) 


TIOSTCOL 


2496(9C0) 




TIOLOECB 


940(3AO 


TIOSTROW 


2495(9BF) 




TIOMARLN 


2459(99B) 


TIOSVCTL 


1262 X'40 f 




TIOMAXRU 


2460(990 


TIOSVRVR 


1262 X'80' 




TIQMSAVE 


1036(400 


TIOSWBI 


563(1600) 




TIONAUTH 


960(3C0) 


TIOSKBN 


623(1858) 




TIONCNT 


966(3C6) 


TIOWRECB 


2472(9AS) 




TIONEWFM 


2492 X'08' 


TIPCOREL 


2936(B78) 




TIONFMAT 


2448(990) 


TIPCOREN 


2936(B78) 




TIONIBCT 


884(374) 


TIPCORIG 


293S(B7A) 




TIOOITSV 


1114(45A) 


TIPCORNX 


2932(B74) 




TIOORRPL 


860(350 


TIPCORSQ 


2936(B78) 




TIOOSNIB 


884(374) 


TIPCWB 


1168(490) 




TIOOSRPL 


864(360) 


TIPELT 


868(364) 




TIOOWAVL 


1904(770) 


TIPELTLA 


868 X'80» 




TIOOWBDY 


12 (O 


TIPELTP 


868(364) 




TIOOWBGN 


(0) 


TIPNCBDY 


3172(C64) 




TIOQWBUF 


(0) 


TIPNCBFR 


3148(C4C) 




TIOOWEND 


4 (4) 


TIPNCHDR 


3148(C4C) 




TIOOWLEN 


8 (8) 


TIPNCLEN 


2930(B72) 




TIOOWNXT 


1900(760 


TIPNCPTR 


2924(B6C) 




TIOPAECB 


936(3A8) 


TIPNIBCT 


868(364) 




TIOPDB1 


683(1AB0) 


TIPPDB 


1532(5FO 




TI0PDB2 


699(1B50) 


TIPRCBDY 


920(398) 




TI0PDB3 


715(1BF0) 


TIPRCBUF 


896(380) 




TICPD34 


73K1C90) 


TIPRCECB 


892(370 




TIOPROFL 


948(3B4) 


TIPRCHDR 


896(380) 




TIOPSBDY 


1932(780 


TIPRCRPL 


860(350 




TIOPSFLC 


2616(A38) 


TIPRPLCT 


860(350 




TIOPSHDR 


1908(774) 


TIPSCRPL 


864(360) 




TIOPSIFL 


2624(A40) 


TIPSWBI 


1692(690 





Appendix C. NCCF Control Blocks C-55 



TIB 



Constants in DSITIB 



NAME 



VALUE 



MEANING 



ni/KriiTrt UGTinea 


vai 


HDRTYPEA 


•T» 


HDRTYPEB 
HDRTYPEC 
HDRTYPED 
HDRTYPEE 


»C» 
» j t 

»E» 


HDRTYPEF 
HDRTYPEG 
HDRTYPEI 


»F» 
»G» 


HDRTYPEJ 


in 


HDRTYPEK 


» »» i 


HDRTYPEL 


* r » 


HDRTYPEM 


»M» 


HDRTYPEN 
HDRTYPEP 


t - 1 

ipi 


HDRTYPEQ 


»Qt 


HDRTYPER 
HDRTYPES 




HDRTYPET 


»K» 


HDRTYPEU 


»U» 


HDRTYPEV 


i ? 


HDRTYPEW 


» + » 


HDRTYPEX 


»X f 


HDRTYPEY 
HDRTYPEZ 


•z» 



SOLICITED MSG FROM 
ACF/TCAM 
SUPPRESSION CHAR 
CMD/MSG FROM CLIST 
IMMEDIATE CMD MSG 
EXTERNAL NON-NCCF 
MESSAGE 
VSAM RECORD 
CSMI RECORD 
INTERNAL FUNCTION 
REQUEST 

NCCF-GENERATED 
FULL-LINE MESSAGE 
IBM-WRITTEN NON-NCCF 
GENERATED FULL-LINE 
MESSAGE 
USER-WRITTEN 
FULL-LINE MESSAGE 
MESSAGE FROM 
MESSAGE COMMAND 
NCCF-GENERATED MSG 
MSG FROM COMMAND OR 
CLIST UNDER PPT 
UNSOLICITED MESSAGE 
FROM ACF/VTAM 
RESPONSE TO ACF/VTAM 
MSG TEXT SUBSTITUTED 
BY USER EXIT 
COMMAND INPUT FROM 
TERMINAL 

RESERVED FOR USER 
IN USER EXIT OR IN 
COMMAND PROCESSOR 
SOLICITED MESSAGE 
FROM ACF/VTAM 
NON-NCCF IBM-WRITTEN 
COMMAND PROCESSOR 
GENERATED MESSAGE 
CROSS DOMAIN 
(NNT-TO-OST) CMD 
REPLY REQUIRED 
DST-GENERATED MSG 



Values for Testing HDRLNTYP, Indicating Multiline Type (Bit 2) 
(HDRMTYPE=HDRTYPEJ, HDRTYPEK, HDRTYPEL Only) 



HDRLNCTL 
HDRLNLBL 
HDRLNDAT 
HDRLNEND 
HDRLNCTL 



B'll' 
B'10» 
B'OO' 
B'01» 
B'll» 



CONTROL LINE 
LABEL LINE 
DATA LINE 
DATA/END LINE 
CONTROL LINE 



Masks for Setting and Testing DSITIB Flags (Bit 1) 



TIBON 
TIBOFF 



B'l' 
B'O* 



FUNCTION IS ACTIVE 
FUNCTION NOT ACTIVE 



Constants for Setting and Testing DSITIB Fields (Fullword) 



TIBZERO 

TIOSCBCT 
TIHSCBCT 
TIPSCBCT 
TIMSCBCT 



FOR POINTER VALUE 

SETTINGS 

NUMBER OF OST SCBS 

NUMBER OF HCT SCBS 

NUMBER OF PPT SCBS 

NUMBER OF MNT SCBS 



C-56 



TVB 



TVB 



DSITVB : MAPS THE TASK VECTOR BLOCK FOR NCCF 
BOUND ARY? DOUBLEWORD 
LENGTH : 144 BYTES (X'90 f ) 

POINTED TO BY ? IFR ( IFRTWTVB, IFRTRTVB, IFRSSTVB) 
TIB (TIBTVB) 

(HDRWLHCT) HCT TCB FOR LOGGING SERVICES 
MVT (MVTTVB) CHAIN HEADER 
(MVTCTVB) TCT TVB 
(MVTTCTVB) TVB TO PURGE 
(MVTUXTVB) 
SSB (SSBTVBD) LUNAME DONNER 

(SSBTVBO) OBJECT TVB FOR START/MOVE 
(SSBTVBD 
SWB (SSMVAL) 
(MQSTADR) 
(WLSHCT) 
USE (USERTVB) 
INCLUDED BLOCKS: CBH (TVBCBH) 



INIT TVB FOR START/MOVE 

RECEIVER'S TVB 
HCT TVB 
SESSION TVB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 






(0) 


STRUCTURE 


144 


DSITVB 


TASK VECTOR BLOCK 





(0) 


CHARACTER 


4 


TVBCBH 


NCCF CONTROL BLOCK HEADER 


4 


(4) 


A-ADDRESS 


4 


TVBNEXT 


ADDR OF NEXT TVB IN THE CHAIN 


8 


(8) 


A-ADDRESS 


4 


TVBTIB 


ADDR OF THE TIB FOR THIS TASK 


12 


(C) 


A-ADDRESS 


4 


TVBTCB 


ADDR OF SYSTEM TCB FOR THE 

TASK 


16 


(10) 


A-ADDRESS 


4 


TVBMVT 


ADDR OF NCCF MAIN VECTOR 
TABLE 


20 


(14) 


SIGNED 


4 


TVBECB 


ECB USED BY DSIMNT FOR THE 
TASK 


24 


(18) 


SIGNED 


4 


TVBTECB 


TERMINATION ECB — INDICATES 
EOT PROCESSING WHEN POSTED 


28 


(1C) 


A-ADDRESS 


4 


TVBEXMSG 


PTR TO AN EXCEPTION MSG TO BE 
HANDLED BY DSIMNT 


32 


(20) 


SIGNED 


4 


TVBMECB 


MESSAGE ECB — INDICATES MSG IN 
PROCESSING WHEN POSTED 


36 


(24) 


A-ADDRESS 


4 


TVBMPRIQ 


PRIVATE MESSAGE QUEUE 


40 


(28) 


A-ADDRESS 


4 


TVBMPUBQ 


PUBLIC MESSAGE QUEUE 


44 


(2C) 


A-ADDRESS 


4 


TVBHCTVB 


ADDR OF HCT TVB FOR THIS TASK 



48 (30) CHARACTER 

1.. 
1. 
.1 
..1 ... 

1.. 

.1. 

. .1 

.. .1 

49 (31) CHARACTER 

1.. 
.1. 
..1 
...1 



TVBIND1 

TVBREIN 

TVBREDP 

TVBTERM 

TVBDETCH 

TVBATTCH 

TVBCLSD 

TVBLABT 

TVBSTART 

TVBIND2 

TVBSTOP 

TVBBYAP 

TVBCNRM 

TVBCIMD 



INDICATOR FLAGS 

1=TASK REINSTATEMENT REQUEST 

1=TASK REDISPATCH REQUEST 

1=TASK TERMINATION IN PROG 

1=TASK IS TO BE DETACHED 

1=TASK IS TO BE ATTACHED 

1=CLSDST PASS REQUESTED 

l=LOGON ABORT 

1=START CMD ISSUED FOR TASK 

INDICATOR FLAGS 

l=STOP CMD ISSUED FOR TASK 

1=BYPASS AUTH PROCESSING 

l=CLOSE NORMAL ISSUED BY TASK 

l=CLOSE IMMEDAITE ISSUED FOR 

TASK 



Appendix C. NCCF Control Blocks C-57 



TVB 



OFFSE 


ETS 


TYPE LEh 


<GTH 


NAME 


DESCRIPTION 




. 1... 




TVBVCLOS 


1=ACF/VTAM CLOSE ACB IS 












REQUIRED 






i 




TUTVMAUr 








. . .1. 

. . ..1 




TVBCDMP 


l=CLOSE DUMP ISSUED FOR TASK 

RESERVED 


50 


(32) 


CHARACTER 


1 


TVBIND3 


INDICATOR FLAGS 




1. . 


» . • ♦ • 




TVBACTV 


1=TASK IS ACTIVE 




.1. 


» • • * • 




TVBLGON 


l=LOGON IN PROCESS 






.1 


» * • • • 




TVBLGOFF 


l=LOGOFF IN PROGRESS 








L 

. 1.. . 




TVBAUTH 
TVBRESET 


l=OPID IS AUTHORIZED 
1=ATTN IND (RESET) FIELDED 






„ ^ 


. .1.. 




TVBNAUTH 


l=NO AUTH CHKNG NEC 






, . 


. ..1. 




TVBRCVAI 


1=RCV ANY HAS BEEN ISSUED 






^ . 


. . ..1 




TVBINXIT 


l=PROCESSING IN AN EXIT 


51 


(33) 


CHARACTER 


1 


TVBIND4 


INDICATOR FLAGS 




1. . 


» • » • • 




TVBPAUSE 


1=PAUSE HAS BEEN ISSUED 




.1. 


, .... 




TVBRCVRY 


l=RECOVERY IN PROGRESS 




..1 


> . . . . 




TVBNWDVC 


1=NEW DEVICE ASSIGNED 






L 




TVBERIMM 


1=ERASE IMMEDIATE MSG AREA 
AFTER NEXT INPUT 




• • • 


. 1. .. 




TVBLGN 


1=MAINTASK LOGON EXIT ENTERED 




... 


. .1.. 




TVBETXR 


1=MAINTASK ETXR ENTERED 






. . .1. 




TVBSIMRQ 


l=SIMLOGON REQUIRED FOR START 
OR MOVE COMMAND 






. . . .1 




TVBSTOPF 


1=TVB STOP FORCE INDICATOR 


52 


(34) 


SIGNED 


2 


TVBERCT 


ERROR RETRY COUNT FOR THIS 
TASK 


54 


(36) 


SIGNED 


2 


TVBTCODE 


TERMINATION CODE 


54 


(36) 


CHARACTER 


1 


TVBMTCOD 


MODULE INDICATOR 


55 


(37) 


UNSIGNED 


1 


TVBNTCOD 


INCIDENT INDICATOR 




3 


L. . 


. .... 




TVBPTCOD 


TERMECB INDICATOR 



56 


(38) 


SIGNED 


4 


TVBHCUSE 


COUNT OF SESSIONS TO (THIS) 
HCT 


60 


(3C) 


CHARACTER 


8 


TVBLUNAM 


ACF/VTAM LU NAME 


68 


(44) 


CHARACTER 


8 


TVBOPID 


OPERATOR ID USING THIS OST 


76 


(4C) 


A-ADDRESS 


4 


TVBUFLD 


NCCF USER FIELD 


80 
81 


(50) 
(51) 


BITSTRING 
UNSIGNED 


1 
3 


TVBINUSE 


IN USE BY START/STOP/MOVE CMD 

PROCESSOR WHEN SET 

RESERVED 


84 


(54) 


A-ADDRESS 


4 


TVBEXITQ 


EXIT QUEUE STORAGE ANCHOR 


88 


(58) 


SIGNED 


4 


TVBTASKQ 


TASK QUEUE STORAGE ANCHOR 


92 


(5C) 


A-ADDRESS 


4 


TVBSSB 


ADDRESS OF SIMLOGON SERVICES 
BLOCK 


96 


(60) 


CHARACTER 


8 


TVBMODNM 


OPTIONAL TASK LOAD MODULE 
NAME 


104 


(68) 


CHARACTER 


8 


TVBMEMNM 


OPTIONAL TASK INIT PARAMITERS 
MEMBER NAME 


112 


(70) 


CHARACTER 


4 






112 


(70) 


CHARACTER 


1 


TVBATPRI 


OPTIONAL TASK ATTACH PRIORITY 


116 


(74) 


BITSTRING 


4 


TVBSTAT 


ADDITIONAL TASK FLAGS 


116 


(74) 


BITSTRING 


4 


TVBZSTAT 


ADDITIONAL TASK FLAGS 



116 



(74) BITSTRING 
1 



1 TVBZIND1 
TVBZPUP 



DSM STATUS FLAGS 

PRIMARY VSAM DATA SET UPDATE 



C-58 



TVB 



OFFSETS 



TYPE 



LENGTH NAME 



DESCRIPTION 



1.. 
1. 
.1 



1.. 
.1. 

..1. 
...1 



117 (75) BITSTRING 

1 

.1 

..1 

118 (76) BITSTRING 

119 (77) BITSTRING 



TVBZPIT 

TVBZSUP 

TVB2SIT 

TVBZCACT 
TVBXACM 

TVBNOSP 
TVBPNMOD 

1 TVBZIND2 
TVBPANEL 

TVBASYIN 

TVBUNPOS 

1 TVBZIND3 
1 TVBZIND4 



PRIMARY VSAM DATA SET IN 

TERMINATION 

SECONDARY VSAM DATA SET 

UPDATE 

SECONDARY VSAM DATA SET IN 

TERMINATION 

CSMI IS ACTIVE 

NNT ACCESS METHOD: 

0=ACF/VTAM, 1=ACF/TCAM 

0=NCCF 

0=CURRENT SCREEN NOT 

MODIFIED, 1=SCREEN WAS 

MODIFIED 

RESERVED 

1=SCREEN REQUEST IN PROCESS, 

0=NORMAL PSM PROCESS 

1=ASYPANEL INPUT REQUEST, 

0=NORMAL PANEL PROCESS 

1=UNDEFINED POS, 0=DEFINED 

POS 

RESERVED 

RESERVED 



120 


(78) 


A-ADDRESS 


4 


TVBTASKC 


ACF/TCAM TASK COUNT FOR ID 


124 


(7C) 


CHARACTER 


8 


TVBAPID 


LOGICAL APPL ID ASSIGNED IN 
ACF/TCAM ENVIRONMENT 


132 


(84) 


A-ADDRESS 


4 


TVBTOPQ 


ACF/TCAM OPCTL QUEUE ANCHOR 


132 


(84) 


A-ADDRESS 


4 


TVBRDECB 


ACF/TCAM CMSI READ ECB 


136 


(88) 


A-ADDRESS 


4 


TVBTXRQ 


ACF/TCAM XDOM RCV ANY QUEUE 
ANCHOR 


140 


(8C) 


A-ADDRESS 


4 


TVBTEXQ 


ACF/TCAM EXIT QUEUE ANCHOR 



140 



(8C) A-ADDRESS 



TCT READY FOR READ QUEUE 
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TVB 



CROSS REFERENCE 



DSITVB 





(0) 


TVBTIB 


8 


(8) 


TVBACTV 


50 


X^O" 


TVBTOPQ 


132 


(84) 


TWBADTn 


i *>& 


nr^ 


TUBTDnYfl 


i &n 


f ftri 


TVBASYIN 


117 


x'^b' 


TVBTXRQ 


136 


(88) 


TVBATPRI 


112 


(70) 


TVBUFLD 


76 


(4C) 


TVBATTCH 


48 


X'08' 


TVBUNPOS 


117 


X'20* 


TVBAUTH 


50 


X f 10 f 


TVBVCLOS 


49 


X'08' 


TVBBYAP 


49 


X»40 f 


TVBXACM 


116 


X'04' 


TVBCBH 





(0) 


TVBZCACT 


116 


x'08' 


TVBCDMP 


49 


X f 02» 


TVBZIND1 


116 


(74) 


TVBCIMD 


49 


X'10' 


TVBZIND2 


117 


(75) 


TVBCLSD 


48 


X'04' 


TVBZIND3 


118 


(76) 


TVBCNRM 


49 


X'20' 


TVBZIND4 


119 


(77) 


TVBDETCH 


48 


X'10' 


TVBZPIT 


116 


X'40' 


TVBECB 


20 


(14) 


TVBZPUP 


116 


X'80' 


TVBERCT 


52 


(34) 


TVBZSIT 


116 


X'10' 


TVBERIMM 


51 


X'10' 


TVBZSTAT 


116 


(74) 


TVBETXR 


51 


X'04 f 


TVBZSUP 


116 


X'20' 


TVBEXITQ 


84 


(54) 








TVBcXMSG 


28 


(1C) 








TVBHCTVB 


44 


(2C) 








TVBHCUSE 


56 


(38) 








TVBIND1 


48 


(30) 








TVBIND2 


49 


(31) 








TVBIND3 


50 


(32) 








TVBIND4 


51 


(33) 








TVBINUSE 


80 


(50) 








TVBINXIT 


50 


X'01' 








TVBLABT 


48 


X'02' 








TVBLGN 


51 


X'08' 








TVBLGOFF 


50 


X'20' 








TVBLGON 


50 


X'40' 








TVBLUNAM 


60 


(3C) 








TVBHECB 


32 


(20) 








TVBMEMNM 


104 


(68) 








TVBMODNM 


96 


(60) 








TVBMOVE 


49 


X'04' 








TVBMPRIQ 


36 


(24) 








TVBMPUBQ 


40 


(28) 








TVBMTCOD 


54 


(36) 








TVBMVT 


16 


(10) 








TVBNAUTH 


50 


X'04' 








TVBNEXT 


4 


(4) 








TVBNOSP 


116 


X'02' 








TVBNTCOD 


55 


(37) 








TVBNWDVC 


51 


X'20' 








TVBOPID 


68 


(44) 








TVBPANEL 


117 


X'80* 








TVBPAUSE 


51 


X'80' 








TVBPNMOD 


116 


X'01' 








TVBPTCOD 


55 


X'80' 








TVBRCVAI 


50 


X'02' 








TVBRCVRY 


51 


X'40' 








TVBRDECB 


132 


(84) 








TVBREDP 


48 


X'40' 








TVBREIN 


48 


X'80' 








TVBRESET 


50 


X'08' 








TVBSIMRQ 


51 


X'02' 








TVBSSB 


92 


(5C) 








TVBSTART 


48 


X'01' 








TVBSTAT 


116 


(74) 








TVBSTOP 


49 


X'80' 








TVBSTOPF 


51 


X'01» 








TVBTASKC 


120 


(78) 








TVBTASKQ 


88 


(58) 








TVBTCB 


12 


CO 








TVBTCODE 


54 


(36) 








TVBTECB 


24 


(18) 








TVBTERM 


48 


X'20 f 








TVBTEXQ 


140 


(8C) 
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Constants in DSITVB 



TVB 



NAME VALUE MEANING 

Masks For Setting and Testing TVBIND Flags (Bit 1) 



TVBON 
TVBOFF 



B'l 
B f 



Constants For Setting and Testing TVB Fields 
(Fullword) 

TVBZERO 



(Char 1) 








TVBTCODA 


'A' 




TVBTCODD 


D T 




1 JVBTCODF 


F» 




* TVBTCODG 


G T 




TVBTCODH 


H* 




TVBTCODL ' 


L f 




TVBTCODM 


M' 




TVBTCODN 


N' 




TVBTCODO 


0' 




TVBTCODP 


P» 




TVBTCODQ 


Q' 




TVBTCODR 


R' 




TVBTCODS 


S' 




TVBTCODT ' 


T» 




TVBTCODV 


V» 




TVBTCODX 


X f 




TVBTCODZ 


2' 



FUNCTION IS ACTIVE 
FUNCTION IS NOT 
ACTIVE 



FOR POINTER VALUE 
SETTINGS 



TVBMTCOD SETTING 
FOR DSILAR 
TVBMTCOD SETTING 
FOR DSIDFA 
TVBMTCOD SETTING 
FOR DSIENP 
TVBMTCOD SETTING 
FOR DSILGN 
TVBMTCOD SETTING 
FOR DSIHCT 
TVBMTCOD SETTING 
FOR DSILTM 
TVBMTCOD SETTING 
FOR DSILAM 
TVBMTCOD SETTING 
FOR DSILAN 
TVBMTCOD SETTING 
FOR DSIOST 
TVBMTCOD SETTING 
FOR DSIPSM 
TVBMTCOD SETTING 
FOR DSIPPT 
TVBMTCOD SETTING 
FOR DSIRCV 
TVBMTCOD SETTING 
FOR DSISTP 
TVBMTCOD SETTING 
FOR DSITPE 
TVBMTCOD SETTING 
FOR DSIDST 
TVBMTCOD SETTING 
FOR DSINSE 
TVBMTCOD SETTING 
FOR DSIDPR 
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USE 



USE 

DSIUSE : MAPS THE USER EXIT PARAMETER LIST 

T7ZT7-.- ™T§RF A CE_WITH ALL USER EXITS 
pC'u'N'DARY ♦ DCubLcwum;. 

LENGTH : 28 BYTES (X'18») + EXTENSION 
INCLUDED BLOCKS : CBH (USERCBH) 

OFFSETS TYPE LENGTH NAME 

(0) STRUCTURE 28 DSIUSE 



USED TO 



DESCRIPTION 

USER EXIT PARAMETER LIST 






(0) 


CHARACTER 


4 


USERCBH 


CONTROL BLOCK HEADER 




1 


(0) 
(1) 


CHARACTER 
UNSIGNED 


1 
1 


USERCODE 


CONTROL BLOCK ID VALUE 
SPECIFIC EXIT ROUTINE 
INDICATOR 


4 


(4) 


A-ADDRESS 


4 


USERMSG 


ADDR OF MESSAGE BUFFER 


8 


(8) 


A-ADDRESS 


4 


uSERLU 


ADDR OF SESSION LUNAME 


12 


(C) 


A-ADDRESS 


4 


USEROPID 


ADDR OF SESSION OPERATOR ID 


16 


(10) 


A-ADDRESS 


4 


USERSU1B 


ADDR OF A SUB FOR USE IN EXIT 
PROCESSING 


20 


(14) 


A-ADDRESS 


4 


USERTVB 


ADDR OF SESSION TVB 


24 


(18) 


A-ADDRESS 


4 


USERPDB 


ADDR OF THE PDB ASSOCIATED 
WITH THE MESSAGE BUFFER 
PASSED TO THE EXIT 


28 
28 


(IC) 
(IC) 


CHARACTER 
STRUCTURE 



28 


USEREXT 
USERLGON 


EXTENSION FOR EXIT DSIEX12 
LOGON EXIT EXTENSION 


28 


(IC) 


CHARACTER 


8 


USERPSWD 


PASSWORD 


36 


(24) 


CHARACTER 


8 


USERHCPY 


HARDCOPY DEVICE NAME 


44 


(2C) 


CHARACTER 


8 


USERPROF 


PROFILE NAME 



52 



(34) A-ADDRESS 



PROFILE NAME 



CROSS REFERENCE 



DSIUSE 





(0) 


USEDSRB 


52 


(34) 


USERCBH 





(0) 


USERCODE 


1 


(1) 


USEREXT 


28 


(IC) 


USERHCPY 


36 


(24) 


USERLGON 


28 


(IC) 


USERLU 


8 


(8) 


USERMSG 


4 


(4) 


USEROPID 


12 


(C) 


USERPDB 


24 


(18) 


USERPROF 


44 


(2C) 


USERPSWD 


28 


(IC) 


USERSWB 


16 


(10) 


USERTVB 


20 


(14) 



C-62 



USE 



Constants in DSIUSE 



NAME 



VALUE 



MEANING 



Symbolic Return Code Values — Returned From User Exits (Byte) 





US ERAS IS 







USE BUFFER AS IS 




USERDROP 


4 




DO NOT PROCESS 
THIS BUFFER — RC 4 
FROM EXIT DSIEX12 
WILL CANCEL LOGON 




USERSWAP 


8 




MOVE BUFFER POINTED 
TO BY REG ZERO TO 
THE BUFFER POINTED 
TO BY USERMSG AND 
PROCESS IT IN PLACE 
OF THE ORIGINAL MSG 




USERLOG 


12 




LOG TO DISK ONLY 




USERLOGR 


16 




REPLACE MESSAGE AND 
LOG TO DISK 




USERHCL 


20 




LOG TO HCL ONLY 




USERHCLR 


24 




REPLACE MESSAGE AND 
LOG TO HARD-COPY 


Constants For 


Setti ng and 


Test i ng 


1 USERCODE 


Field (Bit 8) 




USERDINT 


X' 


E9 f 


DSM INITIALIZATION 
EXIT 




USERVINT 


X' 


EA T 


VSAM INITIALIZATION 
EXIT 




USERVINP 


X* 


EB» 


VSAM INPUT EXIT 




USERVOUT 


X' 


EC 


VSAM OUTPUT EXIT 




USERCINP 


X' 


ED' 


CNMI INPUT EXIT 




USERCOUT 


X* 


EE» 


CNMI OUTPUT EXIT 




USERTRE 


X' 


EF» 


TCT INPUT EXIT 
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Appendix D. Sample User- Written Command Processor 



This appendix is an example of a user-written command processor, DSIUSP, 
which displays an NCCF control block and its length, or displays data in 
storage. Note: This command processor is not executable as it is shown in this 
appendix. 

TITLE f DSIUSP USER COMMAND PROCESSOR *** SHOW *** • 

* N A M E :- * 

* DSIUSP (NCCF USER COMMAND PROCESSOR FOR VERB 'SHOW'). * 

* * 

* B J E C T:- * 

* 1. DISPLAY A NCCF CONTROL BLOCK FOR EXPLICIT/IMPLICIT LENGTH. * 

* 2. DISPLAY DATA IN THE STORAGE. * 

* * 

* DESCRIPTION:- * 

* THIS COMMAND PROCESSOR IS INVOKED WHEN 'SHOW' VERB IS ENTERED * 

* IN ONE OF THE FOLLOWING FORMS: * 

* 



* (1) SHOW CB=<NAME> * 

* (2) SHOW CB=<NAME>,LEN=<VALUE2>|* * 

* (3) SHOW CB=<NAME>,LEN=<VALUE2>|*,TERM=<TERM ID> * 

* (4) SHOW CB=<NAME>,LEN=<VALUE2>|*,OPER=<OPER ID> * 

* (5) SHOW CB=<NAME>,LEN=<VALUE2>|*,TERM=<ID-l>,0PER=<ID-2> * 

* (6) SHOW ADDR=<VALUE1> * 

* (7) SHOW ADDR=<VALUE1>,LEN=<VALUE2> * 



* 



* 



* 



* 



* 



* 



* KEYWORDS ARE NOT POSITIONAL AND AS SUCH MAY BE SPECIFIED IN ANY * 

* ORDER. KEYWORD 'CB' IS REQUIRED FOR COMMANDS 1 THRU 5, AND KEY- * 

* WORD 'ADDR' IS REQUIRED FOR COMMANDS 6 AND 7. OTHER KEYWORDS * 

* ARE OPTIONAL. * 



x 



^ WHERE NAME IS ABBREVIATED NAME OF A NCCF CONTROL BLOCK, VALUE1 * 

* IS ADDRESS IN HEX WHERE DISPLAY IS TO START, VALUE2 IS * 

* LENGTH FOR WHICH DISPLAY IS DESIRED. LENGTH VALUE MAY BE * 

* ENTERED IN DECIMAL, OR IN HEX (PREFIXING THE VALUE BY X). * 

* WHEN C f *' IS ENTERED FOR THE LENGTH THEN IT IS ASSUMED TO * 

* BE THE IMPLIED LENGTH OF NCCF CONTROL BLOCK (THE VALUE IN * 

* CB-HEADER). IF LENGTH IS OMITTED THEN IT IS DEFAULTED TO * 

* FOUR (4) BYTES. IF BOTH TERM AND OPER ARE CODED THEN OPER * 

* IS IGNORED. * 



* 



* IF 'HELP' IS ENTERED FOR <NAME>, THEN A BRIEF HELP-MENU IS * 
x PRESENTED ON THE TERMINAL. * 



* 



* DISPLAY OF DATA CAN BE STOPPED ANY TIME BY SETTING THE TVBRESET * 

* INDICATOR VIA RESET COMMAND OF NCCF. * 



* 



* ANY SYNTAX ERROR IN THE INPUT WILL CAUSE AN ERROR MESSAGE TO * 

* BE DISPLAYED ON THE TERMINAL. RETURN CODE IS SET TO VALUE 8. * 

* CONTROL IS RETURNED TO THE USER FOR NECESSARY CORRECTIONS. * 
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* 

* 

* 
* 

* 
* 

* 

* 

X 

* 
* 

X 

* 
* 

X 

* ENT 

* 

x 

* 

* 

* 

* 
x 
* 
x 
* 

x 
x 
x 
x 
x 
x 
x 
x ERR 



AFTER STANDARD ENTRY LINKAGE, ADDRESSABILITY IS ESTABLISHED 
FOR MVT, PDB, TIB, TVB AND THE WORKAREA IN CHB. THE VALUE FOR 
NUMBER OF ENTRIES IN THE PDB PASSED IS TESTED. IF THE VALUE IS 
LESS THAN 3, THEN AN ERROR MESSAGE IS PRESENTED AND CONTROL IS 
RETURNED TO THE USER WITH A RETURN CODE OF 8. IF THE VALUE IS 
AN EVEN NUM, THEN ALSO AN ERR-MESSAGE IS PRESENTED AND CONTROL 
IS RETURNED TO THE USER WITH A RETURN CODE OF 8. 

CMD FORMAT 1 - 5 : THE NAME ENTERED IS COMPARED AGAINST A LIST 
OF NAMES (SEE LIST LISTOFCB). IF A MATCH IS FOUND, THEN THE 
ADDRESS OF THAT CONTROL BLOCK IS FOUND FROM EITHER MVT OR 
FROM TIB. THE LENGTH OF THE CONTROL BLOCK IS IN THE FIRST 
WORD (2ND HALF WORD / THE 4TH BYTE IN THE WORD). THE CONTROL 
BLOCK IS THEN DISPLAYED FOR THE EXPLICIT/IMPLICIT LENGTH. 



ED FROM T 
UT IS CHE 
L DIGITS 
OR MESSAG 
R WITH RE 
AND EVER 
HE TERMIN 
T TO SEE 
SO, THEN 
TO THE U 



CMD FORMAT 6 - 7 : STORAGE IS DISPLAY 
ENTERED TO THE DESIRED LENGTH. INP 
DIGITS IN HEX VALUE AND NON-DECIMA 
IF SOME ERROR IS FOUND THEN AN ERR 
AND CONTROL IS RETURNED TO THE USE 
IF NO ERROR IS FOUND IN THE INPUT 
DATA IS PRESENTED FOR DISPLAY ON T 
TIME. A CHECK IS MADE AT THIS POIN 
BIT IS ON (RESET KEY ENTERED). IF 
TERMINATED AND CONTROL IS RETURNED 
CODE SET TO 0. 

RY POINT:- 
DSIUSP. 



MODULE CHARACTERISTICS:- 
PROCESSOR - ASSEMBLER 

SIZE - APPROXIMATELY 4K DECIMAL BYTES 
ATTRIBUTES- REENTRANT 
MODE - PROBLEM PROGRAM 
PROTECTION- USER KEY 



HE ADD 
CKED F 
IN DEC 
E IS D 
T CODE 
Y THIN 
AL 16- 
IF THE 
THE D 
SER WI 



RESS VALUE 
OR NON-HEX 
IMAL VALUE 
ISPLAYED, 

SET TO 8. 
G IS GOOD, 
BYTES AT A 

TVBRESET 
ISPLAY IS 
TH RETURN 



I N 



P U T:- 

REGISTER 

REGISTER 

REGISTER 

REGISTER 



1 

13 
14 
15 



OTHER REGS. - 



ADDRESS OF PARAMETER LIST (CONTAINED IN CWB) 

ADDRESS OF HIS SAVE AREA 

RETURN ADDRESS 

ENTRY POINT ADDRESS OF THIS PROGRAM 

UNRELATED INFORMATION 



U 



T P U T:- 
REGISTER 15 
OTHER REGS. 



- RETURN CODE VALUE 

- UNCHANGED FROM INPUT 



NOR 



MAL EXIT:- 
NORMAL RETURN TO THE CALLER 

OR EXIT:- 
NONE. 



D-2 



* CONTROL BLOCKS:- * 

* FOLLOWING NCCF CONTROL BLOCKS ARE USED; * 

* DSICBH, DSICNB, DSIMVT, DSIPDB, DSISVL, DSISWB, * 

* DSITIB, DSITVB. * 



x 



x 



x NCCF/SYSTEM MACROS:- * 

x DSIPSS, DSILCS, AND DSIDATIM. * 



x 



x 



x MESSAGES ISSUED:- * 

* VARIOUS ERROR MESSAGE ARE PRESENTED USING NCCF 'DSIPSS 1 MACRO * 
x TO IDENTIFY SYNTAX ERROR, ERROR IN COMMAND FORMAT ETC. * 



x 



x 



x INTERNAL TABLES:- * 

x A TABLE OF ABBREVIATED NAMES FOR VARIOUS NCCF CONTROL BLOCKS. * 
x VARIOUS TRANSLATE TABLES TO TRANSLATE INPUT/OUTPUT DATA. * 



x 



x 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x ADDRESSABILITY IS ESTABLISHED VIA REG 12. SAVE AREA AND THE WORK * 
x AREA IN THE CWB PASSED IS ADDRESSED VIA REG 13. THE WORK AREA IS * 
x CLEARED BY PROPOGATING NULLS (00) THROUGH IT. REG 11 IS USED AS * 
x BASE REG FOR TIB, REG 10 FOR TVB, REG 9 FOR MVT. * 

x TEMPORARILY USED BASE REGS: REG 8 FOR PDB, REG 2 FOR PDBENTRY OR * 
x BUFHDR IN TIB EXTENSION. * 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



DSIUSP CSECT 

STM R14,R12, 12(R13) SAVE HIS REGISTERS. 

BALR R12,0 ESTABLISH ADDRESSABILITY 

USING *,R12 *** FOR THE PROGRAM. 

USING DSICNB, Rl ADDRESSABILITY FOR CWB PASSED. 

LA R9,CWBSAVEA POINT TO SAVE AREA IN CWB. 

ST R9,8(R13) SAVE IN HIS SAVE AREA (BACK PTR) 

ST R13,4(R9) SAVE HIS SAVE AREA ADDRESS. 

LR R13,R9 POINT TO SAVE AREA AND USE IT AS 

USING CNBSAVEA,R13 *** BASE REG FOR WORK AREA TOO. 

MVI WORKAREA,X»00 f MOVE X'OO' THROUGH THE 

MVC W0RKAREA+1(255),W0RKAREA ***WORK AREA IN CWB. 

ST R1,PARMADDR SAVE PARM-LIST ADDRESS. 

DROP Rl RELEASE REG 1. 

L R11,CWBTIB ESTABLISH ADDRESSABILITY FOR 

USING DSITIB, Rll ** TASK INFORMATION BLOCK (TIB). 

L R10,TIBTVB ESTABLISH ADDRESSABILITY FOR 

USING DSITVB,R10 ox TASK VECTOR BLOCK (TVB). 

ST RICADDRTVB SAVE TVB ADDRESS TEMPORARILY. 

L R9,TVBMVT ESTABLISH ADDRRESSABI L ITY FOR 

USING DSIMVT, R9 xxx MAIN VECTOR TABLE (MVT). 

L R8,CWBPDB ESTABLISH ADDRESSABILITY FOR 

USING DSIPDB, R8 xxxPARSE DESCRIPTOR BLOCK (PDB). 
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* NUMBER OF ENTRIES IN PDB IS CHECKED. IT SHOULD BE ATLEAST 3 AND * 

* IT MUST BE AN ODD NUMBER. IF THIS IS NOT THE CASE THEN ERRMSG 1 * 

* IS PRESENTED. OTHERWISE OUTPUT AREA IS BLANKED OUT AND SEARCH IS * 

* MADE FOR ALL OF THE FORMAT KEYWORDS. * 

* REG 7 - POINTS TO THE OUTPUT AREA * 

* REG 6 - POINTS TO A GROUP OF FORMAT KEYWORDS * 

* REG 4 - POINTS TO KEYWORD/KEYWORD VALUE IN BUFFER * 

* REG 2 - POINTS TO A PDB ENTRY IN THE PDB PASSED * 

* REG 1 - VALUE TO CONTROL SEARCH LOOP * 

* REG - LENGTH OF A PDB ENTRY * 



03 f 3 > NUMBER OF ENTRIES IN PDB ? 

YES - TOO FEW ENTRIES. 
01' NUM OF PDB ENTRIES SHOULD BE ODD ? 

NO - SOMETHING IS MISSING. 

PROPOGATE C f ' THROUGH THE 
,OUTAREA *** 32 BYTES OF OUTAREA. 

ZERO OUT REGISTER 3. 

ADDRESS OF FMT KEYWORDS. 
DBENTRY ** LENGTH OF A PDB ENTRY. 

ADDRESS OF OUTPUT AREA. 

LAST KEYWORD SEARCHED ? 
YES - DONE WITH THE SEARCH. 
ZERO REGISTER 1 AND INSERT 
*** NUMBER OF ENTRIES IN PDB. 
DIVIDE BY 2 FOR LOOP CONTROL. 
ADDRESS OF 1ST PDB ENTRY. 
USING PDBENTRY,R2 ADDRESSABILITY FOR PDBENTRY. 



CLI 


PDBNOENT+l,X f 


BL 


ERROR1 


TM 


PDBNOENT+l,X f 


BZ 


ERROR1 


MVI 


OUTAREA, C T 


MVC 


OUTAREA+K31) 


SLR 


R3,R3 


LA 


R6,FMT0KYWD 


LA 


RO,PDBENTND-P 


FNDKYWD1 EQU 


* 


LA 


R7, OUTAREA 


FNDKYWD2 EQU 


* 


CLI 


0(R6),C ' 


BE 


DONEFMT 


SLR 


R1,R1 


IC 


Rl,PDBNOENT+l 


SRL 


Rl»l 


LA 


R2,PDBTABLE 



V N» 



D^ 



^^^XX^^^*X^9f^^X^^^^X^^^*?f^^^*XX^^^**X^^^^^^*^**^^9(^X^^^^^^**XXX^*^^X^^ 



IF ANY UNRECOGNISEABLE KEYWORD IS FOUND, ERRMSG 9 IS PRESENTED * 

AND CONTROL IS RETURNED TO THE USER. OTHERWISE PROCESSING CONTI- * 

NUES WITH FINDING EACH KEYWORD IN A PRE-DEFINED ORDER. * 

OUTPUT AREA FOR KEYWORD/KEYWORD-VALUE * 

A GROUP OF FORMAT KEYWORDS * 

KEYWORDS TABLE * 

KEYWORD/KEYWORD VALUE IN BUFFER x 

KEYWORD IN THE BUFFER x 

A PDB ENTRY IN THE PDB PASSED x 

CONTROL SEARCH LOOP x 

A PDB ENTRY x 



REG 


7 


- POINTS 


TO 


REG 


6 


- POINTS 


TO 


REG 


5 


- POINTS 


TO 


REG 


4 


- POINTS 


TO 


REG 


3 


- LENGTH 


OF 


REG 


2 


- POINTS 


TO 


REG 


1 


- VALUE TO 


REG 





- LENGTH 


OF 



FNDKYWD3 EQU x 

AR R2,R0 

L R4,CWBBUF 

AH R4,PDBDISP 

IC R3,PDBLENG 

LTR R3,R3 

BZ ERRORS 

CH R3,F0UR 

BH ERRORS 

BCTR R3,0 

EX R3,GETKYWD 

LA R5,KYWRDTAB 

CHKKYWD EQU x 

CLI 0(R5),C ' 

BE ERROR9 

CLC 0(4,R7),0(R5) 

BE GOODKYWD 

LA R5,4(R5) 

B CHKKYWD 

GETKYWD MVC ( 1 , R7 ) , ( R4 ) 

GOODKYWD EQU x 

MVC 0(4,R7) ,4CR7) 

AR R2,R0 

CLC 0(2, R4) ,0(R6) 

BE GETVALUE 

BCT R1,FNDKYWD3 

B NEXTKYWD 



ADDRESS OF NEXT PDB ENTRY. 

ADDRESS OF THE BUFFER PASSED, 

x** ADD DISPLACEMENT IN BUFFER. 

GET LENGTH OF KEYWORD IN BUFFER 

LENGTH OF KEYWORD = ? 

YES - IT IS WRONG, PUT ERR-MSG. 

LENGTH OF KEYWORD > 4 ? 

YES - IT IS WRONG, PUT ERR-MSG. 

DECREASE IT BY 1 FOR EXECUTE. 

MOVE KEYWORD IN OUTPUT AREA. 

ADDRESS OF KEY WORDS TABLE 

END OF TABLE W/O FINDING KEYWORD ? 

YES - GO PUT ERROR MESSAGE. 

IS KEY WORD IN KEYWORDS TABLE ? 

YES - CONTINUE PROCESSING. 

ADDR OF NEXT KEYWORD IN TABEL. 

GO CHECK AGAINST THIS KEY WORD. 

MOVE KEYWORD OUT OF THE BUFFER. 

BLANK OUT THE OUTPUT AREA 
POINT TO NEXT PDB ENTRY. 
COMPARE WITH" THE FMT KEYWORD ? 
SAME - GET KEYWORD VALUE. 
LOOP TILL PDB END REACHED. 
SEARCH FOR NEXT KEYWORD. 
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* KEYWORD VALUE IS MOVED TO THE OUTPUT AREA, IF THE LENGTH OF KEY- * 

* WORD VALUE IS BETWEEN 0-8 CHARACTERS. OTHERWISE ERRMSG 4 IS PRE- * 

* SENTED. FUKMAT SWI T CH IS SET TO VALUE 00 OR 01 DEPENDING ON THE * 

* TYPE OF COMMAND ENTERED. * 

* REG 7 - POINTS TO THE OUTPUT AREA * 

* REG 6 - POINTS TO APPROPRIATE SET OF FORMAT WORDS * 

* REG 4 - POINTS TO THE KEYWORD VALUE IN THE BUFFER * 

* REG 3 - LENGTH OF THE KEYWORD VALUE IN BUFFER * 



GETVALUE 


EQU 


x 




L 


R4,CWBBUF 




AH 


R4,PDBDISP 




IC 


R3,PDBLENG 




LTR 


R3,R3 




BZ 


ERRORS 




CH 


R3, EIGHT 




BH 


ERR0R4 




BCTR 


R3,0 




EX 


R3, OUTOFBUF 


NEXTKYWD 


EQU 


x 




LA 


R6,2CR6) 




La 


R7,8(R7) 




B 


FNDKYWD2 


DONEFMT 


EQU 


x 




CLI 


FMTSW,X'0. * 




BE 


ITISFMT1 




CLI 


OUTAREA,C ' 




BNE 


ITISFMTO 




MVI 


FMTSW,X'01 ? 




LA 


R6,FMT1KYWD 




B 


FNDKYWD1 


OUTOFBUF 


MVC 


0(1, R7) ,0(R4) 



ADDRESS OF THE BUFFER PASSED, 

*** ADD DISPLACEMENT IN BUFFER. 

LENGTH OF OPERAND IN BUFFER. 

LENGTH OF OPERAND = ? 

YES - IT IS WRONG, PUT ERR-MSG. 

LENGTH OF OPERAND > 8 ? 

YES - IT IS WRONG, PUT ERR-MSG. 

DECREASE IT BY 1 FOR EXECUTE. 

MOVE A OPERAND IN OUTPUT AREA. 

POINT TO NEXT KEYWORD. 

AREA FOR NEXT KEYWORD VALUE. 

GO FIND THIS NEW KEYWORD. 

IS THIS SECOND PASS THRU HERE ? 

YES - IT IS FORMAT 1 COMMAND. 

CB-NAME SPECIFIED ? 

YES - IT IS FORMAT COMMAND. 

SET PASS THRU (FMT) SWITCH. 

ADDRESS OF FORMAT1 KEYWORDS. 

GO FIND KEYWORDS. 

MOVE VALUE OUT OF BUFFER. 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x VALUES FOR VARIOUS FORMAT KEYWORDS IS CHECKED. IF NO VALUE IS x 

x ENTERED THEN APPROPRIATE DEFAULT VALUE IS SUBSTITUTED. x 

x FOR LENGTH - DEFAULT VALUE IS FOUR BYTES x 

x TERM ID - DEVICE FROM WHICH COMMAND IS ENTERED x 

x OPER ID - OPERATOR WHO ENTERED THE COMMAND x 

x IF TERM-ID IS ENTERED, THEN TVB CHAIN IS SEARCHED TO LOCATE TVB x 

x FOR THAT TERM-ID. WHEN A TVB IS FOUND, BASE REGS FOR TVB AND TIB x 

x ARE UPDATED TO POINT TO CORRECT TVB AND TIB. IF NO TVB IS FOUND x 

x FOR THE TERM-ID, THEN ERRMSG 5 IS PRESENTED. x 

x REG 2 - POINTS TO FIRST TVB IN TVB CHAIN x 

x REG 4 - POINTS TO OUTPUT AREA FOR DSILCS x 

x REG 15 - RETURN CODE FROM DSILCS (ZERO INDICATES SUCCESS) x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ITISFMTO EQU x 

MVI FMTSW,X'00» RESET FMT SWITCH TO X'OO*. 

CLI 0UTAREA+8,C* • VALUE FOR LENGTH SPECIFIED ? 

BNE CHECKLU YES - CHECK IF LUNAME SPECIFIED. 

MVI OUTAREA+SjC'^' NO - INIT WITH DEFAULT LENGTH. 

CHECKLU EQU * 

L R2,MVTTVB ADDRESS OF FIRST TVB OFF MVT. 

LA R4,ADDRTVB ADDR FOR OUTPUT FROM DSILCS. 

CLI OUTAREA+16,C ' VALUE FOR LUNAME SPECIFIED ? 

BE CHECKOP NO; CHECK IF OP-ID SPECIFIED. 

LA R3,OUTAREA+16 ADDR OF 8-BYTE LUNAME AREA. 

DSILCS TVB=(R2) ,LU=(R3) ,CBADDR=(R4) xx LOCATE TVB FOR LUNAME 

LTR R15,R15 LOCATE OK (RET CODE = 0) ? 

BZ FMTOISOK YES - FORMAT IS OK. 

B ERROR5 NO - GO PUT ERROR MESSAGE. 
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********************************* 

* IF OPER-ID IS ENTERED THEN TV 

* THE ADDR RETURNED BY DSILCS I 

* BASE REGS (REG 10 AND 11). A 

* THE TERMINAL/OPERATOR DOES NO 

* AGE 8 IS PRESENTED, OTHERWISE 

* A LIST OF CB-NAME. IF NO MATC 

* REG 2 - FIRST TVB IN TV 

* REG 4 - ADDRESS OF OUTP 

* REG 15 - RET CODE FROM D 
********************************* 



************************************* 
B CHAIN IS SEARCHED FOR OPER-ID. * 
S USED TO UPDATE THE TVB AND TIB * 
ZERO TIB ADDRESS INDICATES THAT * 
T HAVE AN ACTIVE TIB. ERROR MESS- * 
CTL BLK NAME IS COMPARED AGAINST * 
H IS FOUND, ERRMSG 2 IS PRESENTED. * 
B CHAIN * 

UT AREA FOR DSILCS * 

SILCS (ZERO INDICATES SUCCESS) * 
************************************** 



CHECKOP 



FMTOISOK 



TESTNAME 



EQU 
CLI 
BE 
LA 



* 

OUTAI 
FMTO 
R3,0I 



REA+24,C f ' 
ISOK 

UTAREA+24 
DSILCS TVB=(R2) ,OPID= 
R15 
R5 



LTR 

BNZ 

EQU 

L 

L 

LTR 

BZ 

L 

LA 

LA 

EQU 

LM 

LTR 

BZ 

CR 

BER 

LA 

B 



R15, 

ERRO 

* 

RIO, 

Rll, 

Rll, 

ERRO 

R3,0 

R2,C 

R6,L 

* 

R4,R 

R4,R 

ERRO 

R3,R 

R5 

R6,8 

TEST 



ADDRTVB 

TVBTIB 

Rll 

R8 

UTAREA 

BNAMEOK 

ISTOFCB 

5,0(R6) 

R2 

(R6) 
NAME 



VALUE FOR OP-ID SPECIFIED ? 
NO - FORMAT IS OK AS IT IS. 
ADDR OF 8-BYTE OP-ID AREA. 
(R3) ,CBADDR=(R4) ** LOCATE TVB FOR OPID 
LOCATE OK (RET CODE = 0) ? 
NO - GO PUT ERROR MESSAGE. 

GET ADDRESS OF TVB. 

ADDRESS OF TIB FROM TVB. 

DOES TIB EXIST FOR OPER/TERM ? 

NO - GO PUT ERROR MESSAGE. 

YES - GET CB-NAME VALUE IN REG. 

BR TO ADDRESS IF CB-NAME IS GOOD. 

ADDRESS OF CB-NAME TABLE. 

GET NAME AND BRANCH ADDRESS. 

END OF TABLE WITHOUT A MATCH ? 

YES - GO PUT ERROR MESSAGE. 

NO. ARE TWO NAME SAME ? 

YES - GET ADDRESS AND LENGTH OF CB 

NO - CHECK NEXT ENTRY IN TABLE. 

LOOP BACK TO TEST AGAIN. 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* DEPENDING ON THE CONTROL BLOCK NAME ENTERED, THE CONTROL BLOCK * 
x ADDRESS IS FOUND EITHER FROM THE MVT OR THE TIB. x 

* REG 9 - POINTS TO THE MAIN VECTOR TABLE (MVT) x 

* REG 11 - POINTS TO THE TASK INFORMATION BLOCK (TIB) x 

* REG 4 - POINTS TO THE DESIRED CONTROL BLOCK x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ITISMVT 


EQU 


X 






LR 


R4, 


R9 




BR 


R2 




ITISSNT 


EQU 


X 






L 


R4, 


MVTSNT 




BR 


R2 




ITISOIT 


EQU 


X 






L 


R4, 


MVTOIT 




BR 


R2 




ITISART 


EQU 


X 






L 


R4, 


MVTART 




BR 


R2 




ITISDQT 


EQU 


X 






L 


R4, 


MVTDQT 




BR 


R2 




ITISDDT 


EQU 


X 






L 


R4, 


MVTDDT 




BR 


R2 




ITISSCT 


EQU 


X 






L 


R4, 


MVTSCT 




BR 


R2 




ITISSVL 


EQU 


X 






L 


R4, 


MVTSVL 




BR 


R2 




ITISTIB 


EQU 


X 






LR 


R4, 


Rll 




BR 


R2 




ITISTVB 


EQU 


X 






L 


R4, 


TIBTVB 




BR 


R2 





IT IS MVT. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS SNT. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS OIT. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS ART. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS DQT. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS DDT. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS SCT. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS SVL. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS TIB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS TVB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 
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* DEPENDING ON THE CONTROL BLOCK NAME ENTERED, THE CONTROL BLOCK * 

* ADDRESS IS FOUND EITHER FROM THE MVT OR THE TIB. * 

* REG 9 - POINTS TO THE MAIN VECTOR TABLE (MVT) * 

* REG 11 - POINTS TO THE TASK INFORMATION BLOCK (TIB) * 

* REG 4 - POINTS TO THE DESIRED CONTROL BLOCK * 



ITISACB EQU 
L 
BR 

ITISNCWB EQU 
L 
BR 

ITISICWB EQU 
L 
BR 

ITISMCWB EQU 
L 
BR 

ITISESWB EQU 
L 
BR 

ITISNSWB EQU 
L 
BR 

ITISNPDB EQU 
L 
BR 

ITISMPDB EQU 
L 
BR 

ITISIPDB EQU 
L 
BR 

ITISAPDB EQU 
L 
BR 



R4,TIBACB 
R2 

R4,TIBNCCWB 
R2 

R4,TIBICCWB 

R2 

* 

R4,TIBMRCWB 

R2 

* 

R4,TIBEXSWB 

R2 

* 

R4,TIBNPSWB 

R2 

* 

R4,TIBNCPDB 

R2 

* 

R4,TIBMRPDB 

R2 

x 

R4,TIBICPDB 
R2 

* 

R4,TIBAGPDB 
R2 



IT IS ACB. LOAD ITS ADDRESS. 
NOW GO GET ITS LENGTH. 

IT IS NCCWB. LOAD ITS ADDRESS 
NON GO GET ITS LENGTH. 

IT IS ICCWB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS MRCWB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS EXSWB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS NPSWB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS NCPDB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS MRPDB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH, 

IT IS ICPDB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 

IT IS AGPDB. LOAD ITS ADDRESS 
NOW GO GET ITS LENGTH. 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

* DEPENDING ON THE CONTROL BLOCK NAME ENTERED, THE CONTROL BLOCK * 

* ADDRESS IS FOUND EITHER FROM THE MVT OR THE TIB. * 

* REG 9 - POINTS TO THE MAIN VECTOR TABLE (MVT) * 

* REG 11 - POINTS TO THE TASK INFORMATION BLOCK (TIB) * 

* REG 4 - POINTS TO THE DESIRED CONTROL BLOCK * 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ITISRPL1 EQU 
BAL 
L 
B 

ITISRPL2 EQU 
BAL 
L 
B 

ITISRPL3 EQU 
BAL 
L 
B 

ITISRPL4 EQU 
BAL 
L 
B 

ITISRPL5 EQU 
BAL 
L 
B 

ITISRPL6 EQU 
BAL 
L 
B 

ITISRPL7 EQU 
BAL 
L 
B 

ITISRPL8 EQU 
BAL 
L 
B 

ITISRPL9 EQU 
BAL 
L 
B 

ITISRPLA EQU 
BAL 
L 
B 



R14,0STTIBX 
R4,TI00RRPL 
MOVETYPE 
x 

R14,0STTIBX 

R4,TI00SRPL 

MOVETYPE 

x 

R14,0STTIBX 

R4,TI0RCRPL 

MOVETYPE 

x 

R14,0STTIBX 

R4,TI0SCRPL 

MOVETYPE 

x 

R14,0STTIBX 

R4,TI0RARPL 

MOVETYPE 

x 

R14,0STTIBX 

R4,TI0RSRPL 

MOVETYPE 

x 

R14,HCTTIBX 

R4,TIHSRPL 

MOVETYPE 

x 

R14,HCTTIBX 

R4,TIHCLRPL 

MOVETYPE 

x 

R1<+,PPTTIBX 

R4,TIPRCRPL 

MOVETYPE 

x 

R14,PPTTIBX 

R4,TIPSCRPL 

MOVETYPE 



GO CHECK THE TYPE OF TIB. 

YES - IT IS ORRPL. LOAD ITS ADDRESS 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS OSRPL. LOAD ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS RCRPL. LOAD ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS SCRPL. LOAD ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS RARPL. LOAD ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS RSRPL. LOAD ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS HSRPL. LOAD ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS HCLRPL. GET ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS PRCRPL. GET ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS PSCRPL. GET ITS ADDRESS. 

NOW GO GET ITS LENGTH. 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

* DEPENDING ON THE CONTROL BLOCK NAME ENTERED, THE CONTROL BLOCK * 

* ADDRESS IS FOUND EITHER FROM THE MVT OR THE TIB. * 

* REG 9 - POINTS TO THE MAIN VECTOR TABLE (MVT) * 

* REG 11 - POINTS TO THE TASK INFORMATION BLOCK (TIB) * 
x REG 4 - POINTS TO THE DESIRED CONTROL BLOCK * 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ITISONIB EQU x 

BAL R14,0STTIBX 

L R4,TI00SNIB 

B MOVETYPE 

ITISCNIB EQU x 

BAL R14,0STTIBX 

L R4,TI0CDNIB 

B MOVETYPE 

ITISHNIB EQU x 

BAL R14,HCTTIBX 

L R4,TIHNIB 

B MOVETYPE 

ITISSAT EQU x 

BAL R14,0STTIBX 

L R4,TI0SAUTH 

BR R2 

ITISNAT EQU x 

BAL R14,0STTIBX 

L R4,TI0NAUTH 

BR R2 



GO CHECK THE TYPE OF TIB. 

IT IS OSNIB. LOAD ITS ADDRESS 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS CDNIB. LOAD ITS ADDRESS 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 

IT IS HNIB. LOAD ITS ADDRESS. 

NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 
IT IS SAT. LOAD ITS ADDRESS. 
NOW GO GET ITS LENGTH. 

GO CHECK THE TYPE OF TIB. 
IT IS NAT. LOAD ITS ADDRESS. 
NOW GO GET ITS LENGTH. 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x THE ADDRESS AND THE LENGTH OF THE DESIRED CONTROL BLOCK IS SAVED x 
x IF THE ADDRESS IS ZERO, ERRMSG 7 IS PRESENTED. OTHERWISE THE CTL x 
x BLOCK IS DISPALYED FOR THE APPROPRIATE LENGTH VALUE. x 

x REG 4 - ADDRESS OF THE CONTROL BLOCK x 

x REG 5 - LENGTH OF THE CONTROL BLOCK x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



MOVETYPE 


EQU 


X 




MVI 


CBTYPE,X'FF* 


CBNAMEOK 


EQU 


X 




CLI 


CBTYPE,X'FF» 




BE 


LOADBYTE 




LH 


R5,2(R4) 




B 


STOREIT 


LOADBYTE 


EQU 


X 




SLR 


R5,R5 




IC 


R5,3(R4) 


STOREIT 


EQU 


X 




STM 


R4,R5,PARMSPSS 




LTR 


R4,R4 




BZ 


ERROR? 




B 


DISPLYCB 



INDICATE CB IS RPL OR NIB. 

CONTROL BLOCK A NIB OR RPL ? 
YES - CB LENGTH FIELD IS 1 BYTE 
NO - IT IS HALFWORD, GET IT. 
SAVE ADDRESS AND LENGTH. 

ZERO REGISTER. 

GET LENGTH VALUE FOR RPL/NIB. 

SAVE ADDRESS AND LENGTH OF CB. 
IS CTL BLK ADDRESS ZERO ? 
YES - GO PUT ERROR MESSAGE. 
GO DISPLAY CONTROL BLOCK. 
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* THE HELP DIRECTIONS TO USE THIS COMMAND PROCESSOR ARE PRESENTED * 

* ON THE TERMINAL. DIRECTIONS INCLUDE VARIOUS COMMAND FORMATS ETC. * 

* REG 2 - POINTS TO THE BUFFER CONTAINING HELP DIRECTIONS * 

* REG 5 - ADDRESS OF THE HELP INFORMATION DIRECTIONS * 

* REG 6 - VALUE TO CONTROL LOOP FOR DISPLAY OF DIRECTIONS * 
********************************************************************** 



ITISHELP EQU * IT IS HELP. DISPLAY DIRECTIONS. 

LA R2, BUFFER ADDRESS OF OUTPUT BUFFER. 

USING BUFHDR,R2 ADDRESSABILITY FOR BUF-HEADER. 

LA Rl,50 LENGTH OF MSG-TEXT IN BUFFER. 

STH R1,HDRMLENG SAVE MSG-LENGTH IN BFR HEADER. 

L R5,ADDRHELP ADDRESS OF HELP DIRECTIONS. 

MVC MSGAREAC50) ,0(R5) MOVE A LINE OF HELP DIRECTION. 

BAL R14,PUTBUFER GO DISPLAY THE LINE. 

LA R6,19 VALUE TO CONTROL 'PUTAGAIN* LOOP. 

PUTAGAIN EQU * 

LA Rl,50 LENGTH OF MESSAGE TEXT. 

STH R1,HDRMLENG SAVE IT IN 'MLENG' FIELD. 

LA R5,50CR5) ADDRESS OF NEXT HELP INSTRUCTION. 

MVC MSGAREAC50) ,0CR5) MOVE IT IN MSG AREA OF BUFFER. 

L R1,CWBSWB ADDRESS OF SWB FOR DSIPSS. 

DSIPSS SWB=(R1) ,TYPE=OUTPUT,BFR=(R2) ,OPTIONS=SEG 

BCT R6, PUTAGAIN CONTINUE UNTIL ALL INFORMATION IS 

B RETURN ***DISPLAYED, AND THEN RETURN. 
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********************** ****x*********************x****************x***^ 

* FOR FORMAT 1 COMMAND, THE VALUE ENTERED FOR ADDRESS AND LENGTH * 

* IS TRANSLATED USING APPROPRIATE TRANSLATE TABLE. IF LENGTH IS * 

* ENTERED IN DECIMAL THEN IT IS CONVERTED INTO HEX. * 



ITISFMT1 EQU 
CLI 
BE 
CLI 
BNE 
MVI 

FMT1ISOK EQU 
TR 
MVI 
MVI 
MVC 
SLR 
LA 
LA 
BAL 

DISPLYCB EQU 
CLI 
BNE 
CLI 
BE 

NOTFMTO EQU 
CLI 
BE 
TR 
MVC 
MVI 
MVC 
B 

ITISHEX EQU 
TR 

TRDONE EQU 
MVI 
MVI 
MVC 
SLR 
LA 
LA 
BAL 
CLI 
BE 
CVB 
ST 



OUTAREA,C» » 

ERROR1 

0UTAREA+8,C 

FMT1ISOK 

0UTAREA+8,C 

x 

OUTAREA(6> .T 

OUTAREA+6,C f 

PACKAREA,X'0 

PACKAREA+K7 

R6,R6 

R7,0UTAREA 

R4,CBADDR 

R14,SYNTAXCK 

x 

FMTSNiX'OO' 

NOTFMTO 

0UTAREA + 8,C 

DISPDATA 

* 

0UTAREA+8,C 

ITISHEX 

OUTAREA+8C6) 

PACKAREA,OUT 

0UTAREA + 8,C 

0UTAREA+9C6) 

TRDONE 

x 

OUTAREA+9C6) 

* 

0UTAREA+15,C 

PACKAREA,X f O 

PACKAREA + K7 

R6,R6 

R7,OUTAREA+9 

R4>CBLENTH 

R14,SYNTAXCK 

0UTAREA + 8,C 

DISPDATA 

R6,PACKAREA 

R6,CBLENTH 



RTABLE 

0' 

) ,PACK 



VALUE FOR ADDRESS SPECIFIED ? 

NO - PUT ERROR MESSAGE. 

VALUE FOR LENGTH SPECIFIED ? 

YES - FORMAT 1 IS OK. 

NO - SET LENGTH TO DEFAULT VALUE. 

1 **X-LATE ADDRESS FOR SYNTAX CHECK. 

MOVE C f AT THE END OF FIELD. 

CLEAR THE PACK AREA BY 
AREA ** PROPOGATING X'OO 1 . 

REG TO COUNT NUMBER OF DIGITS. 

ADDRESS OF THE OUTPUT AREA. 

AREA TO SAVE START OF DISPLAY ADDR 

GO CHECK THE SYNTAX. 

FOUND CBNAME. PREPARE TO DISPLAY. 

MAKE SURE IS IT FORMAT ? 

NO - IT IS FORMAT 1. 
x' YES; LENGTH OF CB IS IMPLIED. 

YES - GO DISPLAY CONTROL BLOCK. 

NO - IT IS EXPLICIT. 
X 1 IS LENGTH SPECIFIED IN HEX ? 

YES - TRANSLATE IT ACCORDINGLY. 
,TRTABLE2 ** NO; IT IS DECIMAL. X-LATE IT. 
AREA+8 TEMPORARY MOVE DATA TO AN AREA. 
D f PREFIX WITH f D' TO INDICATE 
,PACKAREA ** DECIMAL LENGTH VALUE. 

AFTER X-LATE CHECK SYNTAX. 

,TRTABLE1 **TRANSLATE HEX LENGTH ALSO. 



T 

) ,PACK 



X f 



MOVE C ' AT THE END OF 

CLEAR OUT THE PACK AREA. 

AREA ***BY MOVING X'OCT. 

REG TO COUNT NUMBER OF DIGITS 
ADDRESS OF OUTPUT AREA. 
ADDRESS TO SAVE LENGTH VALUE. 
GO CHECK SYNTAX. 
LENGTH IS SPECIFIED IN HEX ? 
YES - START DISPLAY OF DATA. 



OUTPUT AREA 



CONVERT 
SAVE IT 



LENGTH IN BINARY (HEX) 
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********************************************************************** 

* DATA IS DISPLAYED FROM THE ADDRESS ENTERED OR DETERMINED FOR THE * 

* DESIRED OR DEFAULT LENGTH VALUE. * 

* REG 3 - ADDRESS OF THE CURRENT DISPLAY BYTE * 

* REG 2 - LENGTH WHICH REMAINED TO BE DISPLAYED * 

********************************************************************** 



DISPLAY THE DATA REQUESTED. 
RESET FORMAT INDICATOR SWITCH. 
LENGTH OF DATA TO BE DISPLAYED. 
ADDRESS WHERE DISPLAY IS TO START 
SAVE THE VALUE. 
INDICATES BFR-HDR NOT INITIALIZED 

INDICATES NO DATA IN BUFFER. 
LENGTH IS = ? 
YES - WE MAY BE DONE. 
NO - PROPOGATE C" » THROUGH 
MSGAREA ***THE MESSAGE AREA. 

AREA FOR TRANSLATED DATA. 

AREA FOR CHARACTER FORM OF DATA. 

LEFT MARGIN INDICATOR. 

RIGHT MARGIN INDICATOR. 

ZERO OUT A REGISTER. 

OUTER LOOP COUNT (LOOP020). 



INNER LOOP COUNT (LOOP030). 
INDICATES BUFFER HAS SOME DATA. 

ZERO ANOTHER REGISTER. 

GET A BYTE TO TRANSLATE. 

SAVE FOR CHARACTER FORM DISPLAY 

SPLIT THE TWO NIBBLES OF BYTE. 

SAVE LEFT NIBBLE. 

SAVE RIGHT NIBBLE. 

TRANSLATE THE BYTES JUST SAVED. 

ADDRESS OF NEXT DATA BYTE. 

ADDRESS OF NEXT CHAR FORM AREA. 

ADDRESS OF NEXT MSG-AREA BYTE. 

DECREASE CB-LENGTH BY 1. 

CHECK IF CB-LENGTH = ? 

YES - WE MAY BE DONE. 

CONTINUE WITH INNER LOOP. 

LEAVE 2 BLANKS BEFORE NEXT DATA 

CONTINUE WITH OUTER LOOP. 



DISPDATA 


EQU 


* 




MVI 


FMTSW,X'OO f 




L 


R2,CBLENTH 




L 


R3,CBADDR 




ST 


R3,DISPADDR 




MVI 


SWITCH2,C , N I 


LOOP010 


EQU 


* 




MVI 


SWITCHltC'N* 




LTR 


R2,R2 




BNP 


MAYBDONE 




MVI 


MSGAREA, C f 




MVC 


MSGAREA + K67) ,MS 




LA 


R4,MSGAREA+8 




LA 


R7,MSGAREA+50 




MVI 


MSGAREA+49,C T +' 




MVI 


MSGAREA+66,C , +» 




SLR 


R1,R1 




LA 


R6,4 


LOOP020 


EQU 


* 




LA 


R5,4 




MVI 


SWITCH1,C'Y' 


LOOP030 


EQU 


* 




SLR 


R0,R0 




IC 


R1,0(R3) 




STC 


Rl ,0(R7) 




D 


RO, SIXTEEN 




STC 


R1,0(R4) 




STC 


R0,1CR4) 




TR 


0(2, R4) ,TRTABLE3 




LA 


R3,1(R3) 




LA 


R7,1(R7) 




LA 


R4,2CR4) 




BCTR 


R2,0 




LTR 


R2,R2 




BNP 


MAYBDONE 




BCT 


R5,LOOP030 




LA 


R4,2CR4) 




BCT 


R6,LOOP020 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x DATA IS DISPLAYED FROM THE ADDRESS ENTERED OR DETERMINED FOR THE * 
x DESIRED OR DEFAULT LENGTH VALUE. * 

^ REG 3 - ADDRESS OF THE CURRENT DISPLAY BYTE * 

^ REG 2 - LENGTH WHICH REMAINED TO BE DISPLAYED * 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



MAYBDONE EQU * 

CLI SWITCHl,C'N f 

BE RETURN 

LA R4,MSGAREA 

LA R5,DISPADDR+1 

LA R6,3 

LOOP040 EQU x 

SLR R0,R0 

IC R1,0(R5) 

D RO, SIXTEEN 

STC R1,0CR4) 

STC R0,1(R4) 

TR 0(2, R^) ,TRTABLE3 

LA R4,2(R4) 

LA R5,1(R5) 

BCT R6,LOOP040 

LA R7,MSGAREA+50 

TR 0(16,R7),TRTABLE4 

ST R3,DISPADDR 

LR R4,R2 

LA R2, BUFFER 

USING BUFHDR,R2 

CLI SWITCH2,C'Y f 

BE HDRDONE 

MVI SWITCH2,C'Y» 

LA Rl,68 

STH R1,HDRMLENG 

BAL R14,PUTBUFER 

B TSTRESET 



IS BUFFER EMPTY (WITH OUT DATA) ? 
YES - WE ARE DONE AND CAN RETURN. 
NO - PREPARE TO X-LATE ADDRESS. 
POINT TO WHERE ADDRESS IS SAVED. 
VALUE TO CONTROL NEXT LOOP. 

ZERO A REGISTER. 

GET A BYTE OF ADDRESS FOR X-LATION. 

SPLIT TWO NIBBLES OF THE BYTE. 

SAVE THE LEFT HALF. 

SAVE THE OTHER HALF. 

TRANSLATE THE TWO SAVED BYTES. 

POINT TO NEXT BYTE IN MSG-AREA. 

POINT TO NEXT BYTE OF ADDRESS. 

CONTINUE WITH THIS LOOP. 

ADDRESS OF CHARACTER FORM DATA. 

TRANSLATE TO REMOVE 3270 CC. 

ADDR OF NEXT BYTE TO BE DISPLAYED. 

TEMPORARILY SAVE REG 2. 

ADDRESS OF OUTPUT BUFFER. 

ADDRESSABILITY FOR BUF-HEADER. 

BUFFER HEADER INITIALIZED ? 

YES. 

INDICATE HEADER IS INITIALIZED. 

VALUE OF MESSAGE AREA LENGTH. 

SAVE IT IN 'MLENG' FIELD. 

GO DISPLAY BUFFER. 

CHECK IF RESET IS ON IN TVB . 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x DATA IS DISPLAYED FROM THE ADDRESS ENTERED OR DETERMINED FOR THE * 

x DESIRED OR DEFAULT LENGTH VALUE. IF TVBRESET BIT IS SET ON THEN x 

x THE DISPLAY OF DATA IS STOPPED AND CONTROL IS RETURNED. x 

x REG 3 - ADDRESS OF THE CURRENT DISPLAY BYTE * 

x REG 2 - TEMPORARILY ALSO USED AS POINTER TO BUFFER x 

x REG 2 - LENGTH WHICH REMAINED TO BE DISPLAYED * 
xxxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



HDRDONE 



TSTRESET 



EQU x 

LA Rl,68 

STH R1,HDRMLENG 

L R1,CWBSWB 



LENGTH OF MSG-AREA IN BUFFER 
SAVE IT IN 'MLENG' FIELD. 
ADDRESS OF SWB PASSED. 



DSIPSS SWB=(R1) ,TYPE=OUTPUT,BFR=(R2) ,OPTIONS=SEG 

EQU x 

TM 

BO 

LR 

B 



TVBIND3, TVBRESET 

RETURN 

R2,R4 

LOOP010 



RESET INDICTOR ON IN TVB 
YES - RETURN IMMEDIATELY 
RESTORE REG 2 BACK. 
GO DISPLAY MORE DATA. 
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* ERRMSG 1 - INVALID COMMAND FORMAT IS USED * 

* ERRMSG 2 - CONTROL BLOCK NAME NOT IN THE LIST * 

* ERRMSG 3 - NON-DECIMAL/NON-HEX DIGIT IS ENCOUNTERED. * 

* ERRMSG 4 - KEYWORD VALUE LENGTH IS OUTSIDE ITS RANGE (0-8) * 

* ERRMSG 5 - NO TVB EXIST FOR TERM-ID/OPER-ID * 

* ERRMSG 6 - DESIRED CTL BLK CAN NOT BE FOUND IN THIS TIB * 

* ERRMSG 7 - CONTROL BLOCK STARTS AT ADDRESS ZERO (00000000) * 

* ERRMSG 8 - OPERATOR/TERMINAL DOES NOT HAVE AN ACTIVE TIB * 

* ERRMSG 9 - RECOGNISED KEYWORDS ARE CB, LEN, TERM, OPER, ADDR * 



ERROR1 



EQU 
LA 
B 

EQU 
LA 
B 

EQU 
LA 
B 

EQU 
LA 
B 

EQU 
LA 
B 

EQU 
LA 
B 

EQU 
LA 
B 

EQU 
LA 
B 

EQU 
LA 
PUTERROR EQU 
MVC 
LA 



ERROR2 



ERROR3 



ERRORS 



ERR0R5 



ERROR6 



ERROR7 



ERR0R8 



ERROR9 



R1,ERRMSG01 
PUTERROR 

R1,ERRMSG02 
PUTERROR 

R1,ERRMSG03 
PUTERROR 

R1,ERRMSG04 

PUTERROR 

* 

R1,ERRMSG05 

PUTERROR 

* 

R1,ERRMSG06 

PUTERROR 

* 

R1,ERRMSG07 

PUTERROR 

x 

R1,ERRMSG08 

PUTERROR 

x 

R1,ERRMSG09 
* 

MSGAREA(50),0(R1) 

R2, BUFFER 
USING BUFHDR,R2 
LA Rl,50 
STH R1,HDRMLENG 
BAL R14,PUTBUFER 
MVI RETCODE,X'08 f 



ADDRESS OF ERROR MESSAGE 1. 
DISPLAY ERROR MSG, AND RETURN. 

ADDRESS OF ERROR MESSAGE 2. 
DISPLAY ERROR MSG, AND RETURN. 

ADDRESS OF ERROR MESSAGE 3. 
DISPLAY ERROR MSG, AND RETURN. 

ADDRESS OF ERROR MESSAGE 4. 
DISPLAY ERROR MSG, AND RETURN. 

ADDRESS OF ERROR MESSAGE 5. 
DISPLAY ERROR MSG, AND RETURN. 

ADDRESS OF ERROR MESSAGE 6. 
DISPLAY ERROR MSG, AND RETURN. 

ADDRESS OF ERROR MESSAGE 7. 
DISPLAY ERROR MSG, AND RETURN. 

ADDRESS OF ERROR MESSAGE 8. 
DISPLAY ERROR MSG, AND RETURN. 

ADDRESS OF ERROR MESSAGE 9. 

MOVE ERROR MESSAGE TEXT. 

ADDRESS OF OUTPUT BUFFER. 

ADDRESSABILITY FOR BUF-HEADER. 

LENGTH OF MESSAGE TEXT. 

SAVE IN ^LENG' FIELD OF BUFHDR 

GO DISPLAY ERROR MESSAGE. 

SET RETURN CODE VALUE. 



Appendix D. Sample User-Written Command Processor D-17 



* RESTORE THE CALLERS REGISTER FROM HIS SAVE AREA AND RETURN TO * 

* THE CALLER WITH APPROPRIATE RETURN CODE VALUE IN REG 15. * 

* REG 14 - RETURN ADDRESS * 

* REG 15 - RETURN CODE VALUE, EITHER OR 8. * 
*x ************* ****** ********************************** *************** 



RETURN EQU * 

SLR R15,R15 

IC R15,RETC0DE 

L R13,4(R13) 

LM R0,R12,20(R13) 

L R14,12(R13) 

BR R14 



ZERO RETURN CODE REGISTER 
GET RETURN CODE VALUE. 
ADDRESS OF HIS SAVE AREA. 
RESTORE REGISTERS - 12. 
LOAD RETURN ADDRESS. 
RETURN FOR GOOD. 



* TIB TYPE IS CHECKED FOR THE CONTROL BLOCK NAME ENTERED. IF IT IS * 

* THE RIGHT TIB, PROCESSING CONTINUES ELSE ERRMSG 6 IS PRESENTED. * 

* REG 11 - BASE REG FOR TIB * 



OSTTIBX 


EQU 


* 




USING 


DSICBH,R11 




CLI 


CBHTYPE,X'02' 




BER 


R14 




B 


ERROR6 


HCTTIBX 


EQU 


* 




CLI 


CBHTYPE,X T 03 f 




BER 


R14 




B 


ERROR6 


PPTTIBX 


EQU 


* 




CLI 


CBHTYPE,X T 00' 




BER 


R14 




B 


ERROR6 



ADDRESSABILITY FOR DSICBH. 
CHECK IF OST-TIB EXTENSION ? 
YES - RETURN AND CONTINUE. 
NO - GO PUT ERROR MESSAGE. 

CHECK IF HCT-TIB EXTENSION ? 
YES - RETURN AND CONTINUE. 
NO - GO PUT ERROR MESSAGE. 

CHECK IF PPT-TIB EXTENSION ? 
YES - RETURN AND CONTINUE. 
NO - GO PUT ERROR MESSAGE. 
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********************************************************************** 

* INPUT SYNTAX IS CHECKED FOR DECIMAL/HEX DIGITS AFTER TRANSLATION * 

* ERRMSG 3 IS PRESENTED IF A NON-HEX/NON-DECIMAL DIGIT IS FOUND. * 

* REG 7 - POINTS TO AREA CONTAINING TRANSLATED INPUT * 
********************************************************************** 



SYNTAXCK 



ONCEMORE 



EXECPACK 



GOPACKIT 



EQU * 

ST R14,SAVE14C 

EQU * 

CLI 0(R7),X'40' 

BE EXECPACK 

CLI 0(R7),X'00' 

BE ERROR3 

LA R6, KR6) 

LA R7,1(R7) 

B ONCEMORE 

EQU * 

LTR R6,R6 

BZ ERRORS 

SR R7,R6 

BCTR R6,0 

EX R6, GOPACKIT 

L R6,PACKAREA+4 

SRL R6,4 

ST R6,0(R4) 

BR R14 

EQU * 

PACK PACKAREA+4C4) ,0(0, R7) ***PACK THE DATA. 



SAVE RETURN ADDRESS. 

IS IT C ' (END OF DATA) ? 

YES - GO PACK THE DATA. 

NO - IS IT X'OO' (INVALID CHAR) ? 

YES - THERE IS SYNTAX ERROR. 

NO - ADD 1 TO COUNT OF VALID CHAR 

ADDRESS OF NEXT BYTE. 

GO CHECK THE BYTE. 

COUNT OF VALID CHAR = ? 

YES - NULL OPERAND NOT ALLOWED. 

NO. POINT TO START OF OUTPUT AREA 

REDUCE COUNT OF VALID CHAR BY ONE 

GO PACK THE DATA. 

GET PACKED DATA IN REG. 

GET RID OF LOW ORDER 4 BITS. 

SAVE THE VALUE. 

RETURN BACK. 



********************************************************************** 

* DISPLAY THE DATA IN THE BUFFER AFTER INITIALIZING VARIOUS FIELDS * 

* IN THE BUFHDR, SUCH AS DOMID, TSTMP, BLENG, TDISP ETC. * 

* REG 2 - POINTS TO THE BUFFER * 

* REG 1 - POINTS TO THE SWB FOR CALL TO DSIPSS * 
********************************************************************** 



PUTBUFER 



HALFDONE 



EQU 

ST 

CLI 

BNE 

LA 

STH 

MVC 

MVI 

LA 

STH 

EQU 

BAL 

ST 

L 

DSIPSS 

L 

BR 



* 

R14,SAVE14A 
HDRTDISP+1 ,X'00 f 
HALFDONE 

R0,BUFHDRND-BUFHDR 
RO,HDRTDISP 
HDRDOMID(8) ,MVTCURAN 
C*U' 



SAVE RETURN ADDRESS. 
•TDISP f , 'DOMID* ETC DONE ? 
YES - NEED ONLY 'BLENG 1 AND 'TSTMP' 
DISPLACEMENT OF MSG FROM BFR HDR. 
SAVE IT IN 'TDISP' FIELD. 
**MOVE DOMAIN-ID INFORMATION. 



INDICATE USER TYPE MESSAGE 
LENGTH OF TOTAL BUFFER. 
SAVE IT IN 'BLENG' FIELD. 



HDRMTYPE 
R0,120 
R0,HDRBLENG 
* 

R14,GETTIME ISSUE SVC 34 FOR TIME (?HHMMSS+) 

R1,HDRTSTMP SAVE IT IN 'TSTiP' FIELD. 

R1,CWBSWB GET ADDRESS OF SWB. 

SWB=(R1) ,TYPE=OUTPUT,BFR=(R2) 



R14,SAVE14A 
R14 



GET THE RETURN 
RETURN BACK. 



ADDRESS 
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********************************************************************** 

* ISSUE DSIDATIM TO GET TIME THE TIME OF DAY * 

* OUTPUT: REG 1 - TIME IN HHMMSSOC FORM * 
********************************************************************** 



GETTIME EQU * 

ST R14,SAVE14B SAVE RETURN 

DSIDATIM AREA=PACKAREA,FORMAT=BINARY 
L Rl,PACKAREA+4 RETURN ONLY 
L R14,SAVE14B LOAD RETURN 

BR R14 AND RETURN. 



ADDRESS. 
GET THE TIME 
THE TIME 
ADDRESS. 



OF DAY 



LISTOFCB DS 


OF 


LIST OF CTL BLK NAME AND BR ADDRESS 


DC 


CL4'ACB ' 


IF NAME IS 'ACB ' , 


THEN 


DC 


A(ITISACB) 


***BRANCH TO LABEL 


•ITISACB' . 


DC 


CL4'ART ' 


IF NAME IS 'ART ', 


THEN 


DC 


ACITISART) 


***BRANCH TO LABEL 


'ITISART' . 


DC 


CL4' AGPD' 


IF NAME IS 'AGPDB' , 


THEN 


DC 


A(ITISAPDB) 


***BRANCH TO LABEL 


' ITISAPDB' . 


DC 


CL4'CDNI' 


IF NAME IS 'CDNIB', 


THEN 


DC 


A(ITISCNIB) 


***BRANCH TO LABEL 


•ITISCNIB' . 


DC 


CL4'DDT ' 


IF NAME IS 'DDT ' , 


THEN 


DC 


A(ITISDDT) 


***BRANCH TO LABEL 


' ITISDDT' . 


DC 


CL4'DQT ' 


IF NAME IS 'DQT ' , 


THEN 


DC 


A(ITISDQT) 


***BRANCH TO LABEL 


'ITISDQT' . 


DC 


CL4'EXSW* 


IF NAME IS 'EXSWB' , 


THEN 


DC 


A(ITISESWB) 


***BRANCH TO LABEL 


'ITIESWB' . 


DC 


CL4' ICCW 


IF NAME IS f ICCWB' , 


THEN 


DC 


A(ITISICWB) 


***BRANCH TO LABEL 


' ITISICWB' . 


DC 


CL4» ICPD' 


IF NAME IS 'ICPDB' , 


THEN 


DC 


A(ITISIPDB) 


***BRANCH TO LABEL 


' ITISIPDB' . 


DC 


CL4'MRCW 


IF NAME IS 'MRCWB' , 


THEN 


DC 


A(ITISMCWB) 


***BRANCH TO LABEL 


'ITISMCNB' . 


DC 


CL4'MRPD' 


IF NAME IS 'MRPDB' , 


THEN 


DC 


A(ITISMPDB) 


***BRANCH TO LABEL 


'ITISMPDB' . 


DC 


CL4'MVT ' 


IF NAME IS 'MVT ' , 


THEN 


DC 


A(ITISMVT) 


***BRANCH TO LABEL 


'ITISMVT' . 


DC 


CL4'NAT » 


IF NAME IS 'NAT ' , 


THEN 


DC 


A(ITISNAT) 


***BRANCH TO LABEL 


' ITISNAT' . 


DC 


CL4'NCCW 


IF NAME IS 'NCCWB' , 


THEN 


DC 


A(ITISNCWB) 


***BRANCH TO LABEL 


'ITISNCWB' . 


DC 


CL4'NCPD' 


IF NAME IS 'NCPDB' , 


THEN 


DC 


A(ITISNPDB) 


***BRANCH TO LABEL 


'ITISNPDB' . 


DC 


CL^'NPSW 


IF NAME IS 'NPSNB 1 , 


THEN 


DC 


A(ITISNSWB) 


***BRANCH TO LABEL 


'ITISNSNB' . 


DC 


CL4'0IT ' 


IF NAME IS 'OIT ' , 


THEN 


DC 


ACITISOIT) 


***BRANCH TO LABEL 


'ITISOIT' . 


DC 


CL4'0RRP' 


IF NAME IS 'ORRPL', 


THEN 


DC 


A(ITISRPLl) 


***BRANCH TO LABEL 


'ITISRPL1* . 
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% 



\ 



DC CL4'0SNI' 

DC ACITISONIB) 

DC CL4'0SRP' 

DC ACITISRPL2) 

DC CL4'RARP f 

DC ACITISRPL5) 

DC CL4'RCRP T 

DC ACITISRPL3) 

DC CL4'RSRP' 

DC ACITISRPL6) 

DC CLA'SAT f 

DC ACITISSAT) 

DC CL^'SCRP' 

DC ACITISRPL4) 

DC CL4 f SCT ' 

DC A(ITISSCT) 

DC CLVSNT • 

DC A(ITISSNT) 

DC CL4 f SVL • 

DC A(ITISSVL) 

DC CL4*TIB » 

DC A(ITISTIB) 

DC CL4'TVB ' 

DC A(ITISTVB) 

DC CL^'HSRP' 

DC ACITISRPL7) 

DC CL4 f HCLR» 

DC A(ITISRPLS) 

DC CL4*PRCR T 

DC ACITISRPL9) 

DC CL4'PSCR» 

DC ACITISRPLA) 

DC CL4'HNIB' 

DC A(ITISHNIB) 

DC CL4 f HELP' 

DC A(ITISHELP) 

DC XL4'00000000 



IF NAME IS 'OSNIB' , THEN 



***BRANCH TO LABEL 
IF NAME IS 'OSRPL' 
***BRANCH TO LABEL 
IF NAME IS 'RARPL' 
***BRANCH TO LABEL 
IF NAME IS 'RCRPL' 
***BRANCH TO LABEL 
IF NAME IS T RSRPL» 
***BRANCH TO LABEL 
IF NAME IS 'SAT ' , 
***BRANCH TO LABEL 
IF NAME IS »SCRPL T 
***BRANCH TO LABEL 
IF NAME IS 'SCT ' , 
***BRANCH TO LABEL 
IF NAME IS 'SNT ' , 
***BRANCH TO LABEL 
IF NAME IS f SVL ' , 
*x*BRANCH TO LABEL 
IF NAME IS f TIB ' , 
***BRANCH TO LABEL 
IF NAME IS 'TVB ' , 
***BRANCH TO LABEL 
IF NAME IS 'HSRPL' 
***BRANCH TO LABEL 
IF NAME IS 'HCLRPL 
***BRANCH TO LABEL 
IF NAME IS 'PRCRPL 
***BRANCH TO LABEL 
IF NAME IS f PSCRPL 
***BRANCH TO LABEL 
IF NAME IS 'HNIB', 
***BRANCH TO LABEL 
IF NAME IS f HELP f , 
***BRANCH TO LABEL 
END OF TABLE. 



*ITISONIB f 

THEN 
'ITISRPL2* 

THEN 
• ITISRPL5' 

THEN 
'ITISRPL3' 

THEN 
'ITISRPL7' 
THEN 
'ITISSAT* . 

THEN 
f ITISRPL4* 
THEN 

• ITISSCT' . 
THEN 

' ITISSNT' . 
THEN 

» ITISSVL* . 
THEN 

' ITISTIB* . 
THEN 
'ITISTVB* . 

THEN 
'ITISRPL7' 
, THEN 
'ITISRPL8 f 
, THEN 
'ITISRPL9' 
, THEN 
'ITISRPLA' 
THEN 

•ITISHNIB* 
THEN 
' ITISHELP' 
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ADDRHELP 


DC 


A(HELPINFO) 


THREEOO 


DC 


F f 300' 


SIXTY 


DC 


r ' 6 ' 


SIXTEEN 


DC 


F' 16 f 


EIGHT 


DC 


H'S' 


FOUR 


DC 


H'4' 


FMTOKYWD 


DC 


C'CBLETEOP 


FMT1KYWD 


DC 


C'ADLE f 


KYWRDTAB 


DC 


C'CB ' 




DC 


C'LEN ' 




DC 


C'ADDR' 




DC 


C'TERM' 




DC 


COPER' 




DC 


C ' 



ADDRESS OF HELP DIRECTIONS 
FULLWORD VALUE 300. 

VALUE 

VALUE 

VALUE 

VALUE 



FULLWORD 
FULLWORD 
HALFWORD 
HALFWORD 



60. 

16. 

8. 

4. 

FMT KEYWORDS (CB, LEN, 
FORMAT 1 KEYWORDS (ADDR, 



TERM, 
LEN) 



LIST 

**** 
END 



RECOGNISED 

RECOGNISED 

RECOGNISED 

OF THE LIST 



1 ADDR 1 
'TERM' 
'OPER' 



OP) 



OF RECOGNISED KEYWORD 'CB 
RECOGNISED KEYWORD 'LEN f 

KEYWORD 

KEYWORD 

KEYWORD 



TRTABLE1 DC 64X'00',C ' , 64X ' 00 ' , X ' FAFBFCFDFEFF ' , 58X ' 00 ' , X ' FAFB ' 
DC X'FCFDFEFF',41X'00',X'F0F1F2F3F4F5F6F7F8F9',6X'00' 



TRTABLE2 DC 



64X'00' , C ',175X , 00',X'F0F1F2F3F4F5F6F7F8F9',6X , 00 , 



TRTABLE3 DC 



CL16'0123456789ABCDEF' 



TRTABLE4 DC 

DC 
DC 
DC 



64X'4B» ,C ' , 9X'4B' , X ' 4A4B4C4D4E4F50 ' , 9X ' 4B ' , X ' 5A5B5C ' 
X'5D5E5F6061',9X'4B',X'6B6C6D6E6F',10X'4B' ,X'7A7B7C7D' 
X'7E7F* ,65X'4B' ,C f ABCDEFGHI ' ,7X'4B' , C ' J KLMNOPQR ' , 8X'4B' 
C'STUVWXYZ' , 6X'4B' ,C 01234 56 789 ' , 6X'4B' 



ERRMSG01 DC CL50'INVALID COMMAND FORMAT IS USED. TRY *SHOW CB=HELP* 

ERRMSG02 DC CL50'CTL BLOCK NAME NOT IN THE LIST. TRY *SHOW CB=HELP* 

ERRMSG03 DC CL50 ' NON-DECIMAL/NON-HEX DIGIT IS FOUND. PLEASE CORRECT 

ERRMSG04 DC CL50 ' KEYWORD/OPERAND WITH =0 OR >8 CHARS IS NOT ALLOWED 

ERRMSG05 DC CL50'N0 TVB EXISTS FOR THE SPECIFIED LU-NAME OR OPER-ID 

ERRMSG06 DC CL50'THE DESIRED NCCF CONTROL BLOCK IS NOT IN THIS TIB 

ERRMSG07 DC CL50'CB STARTING ADDRESS IS 0. MAY BE IT DOES NOT EXIST 

ERRMSG08 DC CL50'THE OPERATOR/TERMINAL DOES NOT HAVE AN ACTIVE TIB 

ERRMSG09 DC CL50 ' RECOGNISED KEYWORDS ARE: CB, LEN, TERM, OPER, ADDR 
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HELPINFO DC CL50 f FOR THE DISPLAY OF ANY NCCF CONTROL BLOCK, ENTER — 

DC CL50 ? SHOW CB=XXXX , LEN=<VALUE> , TERM=<ID-1> , OPER=<ID-2> 

DC CL50 f WHERE LEN, TERM AND OPER ARE OPTIONAL PARAMETERS. 

DC CL50' LENGTH CAN BE CODED IN HEX (PREFIXING BY X)/DECI 

DC CL50 f OR AS AN *, IN WHICH CASE IT IS THE IMPLICIT LEN 

DC CL50 1 OF THE NCCF CONTROL BLOCK. IF BOTH TERM AND OPER 

DC CL50 1 ARE CODED THEN THE OPER-ID IS IGNORED. FOR THE CB 

DC CL50' CODE ONE OF THE FOLLOWING NAMES (ALL TASKS): 

DC CL5CTACB ART AGPDB ICPDB MRPDB NCPDB DDT DQT 

DC CL50'OIT EXSWB NPSWB ICCWB MRCWB NCCWB TVB SAT 

DC CL50'MVT NAT SCT SNT SVL TIB HELP 

DC CL50' FOR OST-TASKS ADD ORRPL OSRPL RARPL 

DC CL50' RCRPL RSRPL SCRPL CDNIB OSNIB 

DC CL50* FOR HCT-TASKS ADD HNIB HSRPL HCLRPL 

DC CL50' FOR PPT-TASKS ADD PRCRPL PSCRPL 

DC CL50'FOR DISPLAY OF DATA IN USERS ADDRESS SPACE ENTER — 

DC CL50' SHOW ADDR=<VALUE 1> , LEN=<VALUE2> 

DC CL50»WHERE ADDRESS IS THE STARTING ADDRESS IN HEX, AND 

DC CL50'LENGTH CAN BE CODED IN HEX (PREFIXING BY X) OR IN 

DC CLSO'DECIMAL. TO STOP DISPLAY HIT RESET KEY. 
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DSICWB COMMAND WORK BLOCK DSECT. 



DSICWB DSECT CONTINUE DEFINING CWB. 

ORG CWBADATD REDEFINE DATA AREA IN CWB. 

WORKAREA DS 0CL256 WORK AREA FOR COMMAND PROCESSOR 

OUTAREA DS 0CL32 OUTPUT AREA FOR OPERANDS. 

DS CL8 AREA FOR 1ST KEYWD CB/ADDR VALUE. 

DS CL8 AREA FOR 2ND KEYWD (LENGTH) VALUE. 

DS CL8 AREA FOR 3RD KEYWD (LUNAME) VALUE. 

DS CL8 AREA FOR 4TH KEYWD (OPID) VALUE. 

PACKAREA DS D DOUBLE WORD AREA TO PACK/UNPACK. 

PARMADDR DS A SAVE AREA FOR PARM-LIST ADDRESS. 

ADDRTVB DS A SAVE AREA FOR LOCATE TVB ADDRESS. 

SAVE14A DS F SAVE AREA FOR LINKAGE REGISTER. 

SAVE14B DS F SAVE AREA FOR LINKAGE REGISTER. 

SAVE14C DS F SAVE AREA FOR LINKAGE REGISTER. 

DISPADDR DS F ADDRESS OF CURRENT DISPALY BYTE. 

FMTSW DS OC FORMAT INDICATOR BYTE. 

RETCODE DS C RETURN CODE VALUE. 

CBTYPE DS C INDICATOR IF CB-TYPE IS RPL/NIB. 

SWITCH1 DS C SWITCH FOR EMPTY/FULL BUFFER 

SWITCH2 DS C SWITCH FOR BUF-HEADER INITIALIZATION 

PARMSPSS DS 0CL8 PARMS USED TO CALL DSIPSS 

CBADDR DS A ADDRESS OF CONTROL BLOCK 

CBLENTH DS F LENGTH OF CONTROL BLOCK 

DS F ADDITIONAL FULL WORD AREA. 

BUFFER DS OF COMPLETE BUFFER AREA 

DS XL(BUFHDRND-BUFHDR) BUFFER HEADER AREA. 

MSGAREA DS 0CL96 MESSAGE AREA IN THIS BUFFER 

LABEL1 EQU * LABEL TO COMPUTE LENGTH. 

DS XLC256-(LABELl-WORKAREA)) REMAINDER OF THE WORKAREA. 
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Appendix £. Sample Data Services Command Processors 



This appendix contains examples of data services command processors (DSCPs). 
DSITDSRD uses the DSIZVSMS macro instruction and reads keyed records 
from a VSAM data set. DSITDSOL uses the DSIZCSMS macro instruction to 
send a request for data to the CNM interface. 

Note: These command processors are not executable as shown in this appendix. 

DSITDSRD Command Processor 



X K 

X NAME = DSITDSRD * 

x x 

X FUNCTION = THIS COMMAND PROCESSOR WILL READ KEYED RECORDS FROM x 

x A VSAM DATA SET AS PER THE CNMREAD COMMAND PASSED. x 

X X 

X ENTRY POINT = DSITDSRD * 

x x 

X INPUT = ^ 

X REGISTERS: X 

x Rl = DSICWB ADDRESS X 

x R13 = ADDRESS OF STANDARD SAVEAREA * 

X RU = RETURN ADDRESS X 

x R15 = ENTRY POINT OF ROUTINE X 

x x 

X DSICWB (POINTED TO BY R1 - PSCP AND DSCP): x 

X CWBSAVEA = AN 18 WORD SAVE AREA FOR USE IN THIS CMD PROC. x 

X CWBBUF = ADDRESS OF A MESSAGE BUFFER. THE BUFFER X 

X CONTAINS A STANDARD NCCF BUFFER HEADER. x 

x CWBPDB = ADDRESS OF A PDB FOR USE IN THIS CMD PROC. X 

x NOTE - THE PDB WILL CONTAIN VALID INFORMATION X 

X ONLY WHEN CONTROL IS RECEIVED INITIALLY FROM x 

X THE TASK (OST OR DST) DRIVING THIS CMD PROC. x 

X CWBSWB = ADDRESS OF A SWB FOR USE IN THIS CMD PROC. X 

X CWBTIB = ADDRESS OF THE DSIOST OR DSIZDST TIB. x 

X CWBADATD = A 256 BYTE WORK AREA FOR USE IN THIS CMD PROC. X 

x CWBDSRB = FOR A DSCP ADDRESS OF A DSRB CONTAINING x 

X INFORMATION RELATED TO PROCESSING OF THE X 

X COMMAND. FOR A PSCP THIS FIELD IS MEANINGLESS. X 

x x 

X DSIDSRB (POINTED TO BY CWBDSRB - DSCP ONLY): x 

X X 

x x 

x DSRBUSER = THE ADDRESS OF THE READ GLOBAL WORK AREA(RGWA) X 

X WILL BE PLACED HERE AFTER IT IS OBTAINED. THE X 

x HIGH ORDER BYTE WILL BE USED AS A FLAG TO x 

X DETERMINE IF THE RGWA SHOULD BE FREE'D UP x 

X UPON COMPLETION. X 

x x 
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OUTPUT = 

REGISTERS: 

RO - R14 = RESTORED TO INPUT STATUS 
R15 = RETURN CODE 

RETURN CODE (R15 ON EXIT): 



FOR A DSCP: 

= MAINTAIN THE DSRB PASSED TO 
RESUME PROCESSING HAS TO BE 
8 = RELEASE THE DSRB PASSED TO THIS CMD PROC - 
THE FUNCTION IS COMPLETE. 



THIS CMD PROC 
SCHEDULED. 



DESCRIPTION = DSITDSRD IS A DATA SERVICES COMMAND PROCESSOR(DSCP) . 
ITS FUNCTION IS TO READ THE NUMBER OF RECORDS 
SPECIFIED IN THE CNMREAD COMMAND AREA STARTING 
WITH THE INITIAL KEY SPECIFIED. OUTPUT RECORDS ARE 
BUILT FOR THE FIRST AND LAST RECORDS READ PLUS 
EACH READ ERROR. UPON COMPLETION OF READING THE 
NUMBER OF RECORDS SPECIFIED A FINAL SUMMARY RECORD IS 
BUILT. EACH RECORD(MESSAGE) BUILT IS THEN QUEUED BACK 
TO THE INVOKING PSCP VIA THE NCCF MACRO DSIMQS. 
A SCHEDULING ERROR WILL RESULT IN A MESSAGE BEING 
SENT DIRECTLY TO THE USER AND THE TERMINATION OF 
COMMAND PROCESSING. 

EXIT = RETURN TO ADDRESS IN R14, WITH RETURN CODE SET IN R15. 

EXTERNAL REFERENCES = NONE 

CONTROL BLOCKS = 

DSICWB - COMMAND-PROCESSOR WORK BLOCK 

DSIDSRB - DATA SERVICES REQUEST BLOCK (DSCP) 

DSIPDB - PARSE DATA BLOCK 

DSISWB - SERVICE-ROUTINE WORK BLOCK 

DSITIB - TASK INFORMATION BLOCK 

DSITID - DSIZDST TASK INFORMATION BLOCK EXTENSION (DSCP) 

DSIMVT - NCCF MAIN VECTOR TABLE 

MACROS = DSICBS,DSIGET,DSIFRE, DSIMQS, DSIABN, DSIZVSMS, DSIMBS,DSIPSS 



ABENDS 



651 = FAILURE OF MQS TO PUT OUT MSG 261 

652 = FAILURE TO FREE THE RGWA 

653 = FAILURE TO QUEUE READ ERROR MSG 

654 = FAILURE TO QUEUE LAST RECORD MSG 

655 = FAILURE TO QUEUE FIRST RECORD 

656 = FAILURE TO QUEUE SUMMARY RECORD 

657 = FAILURE OF MQS TO PUT OUT MSG 256 



XXXXXXMXXXXX^XXXX^XX^XXXXXXXXK^XXXXXKXX^^XXX^XXXXXXXXKXXXXXXMXXKXXJtXXXJt 
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\ 

$ 



&LABEL 
&LABEL 



MACRO 

HEXEBC 

UNPK 

PACK 

01 

01 

TR 

MEND 



&TO=,&FROM= 
*T0.(7),&FR0M.(4) 
4T0+7(1),&T0+6(1) 
STO+6,X'F0' 
&TO+7,X'F0 T 
&TO.(8),HEXTAB-240 



/ 






MACRO 
iLABEL UPONE *ADDR=,SDIGITS=4 
&LABEL LA 15,8ADDR 

14,&DIGITS 

15,0(14,15) 

15,0 

0(1 ,15),UPTAB-240 
0(15), CO' 
UPND&SYSNDX 
15,0 

14,UP&SYSNDX 
x 



LA 
LA 
LA 
BCTR 

UPSSYSNDX TR 
CLI 
BNE 
BCTR 
BCT 

UPNDSSYSNDX EQU 



MEND 



DSITDSRD 



CSECT 

USING 

B 

DC 

DC 

EQU 

DROP 



x,15 
INSAVE 
C'DSITDSRD 
C'&SYSDATE' 
INSAVE EQU x 
15 

XXXXXXXXXXXXXXXXXXXXXXXXXX 

X MODULE ADDRESSABILITY I 
X ESTABLISHED, AND THE CUIB 
X ENTRY LINKAGE. 

XXXXXXXXXXXXXXXXXXXXXXXXXX 

STM 14,12,12(13 

LR 12,15 

USING DSITDSRD, 12 

USING DSICWB,1 

LA 2,CWBSAVEA 

ST 13,4(2) 

XC 8(4, 2), 8(2) 

ST 2,8(13) 

LR 13,2 

L 6,CWBBUF 

L 10,CWBTIB 

USING DSITIB,10 

L 11,TIBTVB 

ST 11,0(,13) 

USING DSITVB,11 

DROP 1 

L 8,TVBMVT 

DROP 1 1 

USING DSIMVT,8 

LR 11,1 

DROP 1 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

S ESTABLISHED, ADDRESSABILITY TO THE CWB IS X 

SAVEAREA IS USED IN PERFORMING STANDARD X 

x 

XXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXX 



SAVE CALLERS REGS 
ESTABLISH MODULE 

ADDRESSABILITY 
CMD-PROC WORK BLOCK ADDRESSABILITY 
PICK UP ADDRESS OF MY SAVE AREA 
SET BACK POINTER 
CLEAR FORWARD POINTER 
SET CALLERS FWD POINTER 
R13 NOW POINTS TO MY SAVE AREA 
SET REG 6 TO ADDRESS OF I/P BUFFER 
START SET UP OF MVT ADDRESS 



PUT MY TVB ADDR IN 1ST WORD OF SAVEAREA 



FINIALLY GOT THE MVT 
ALSO NEED THE CWB IK 11 
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MVC 


CNMIFR(2),IFRCDE 


MVC 


CNMVERB(8),READRSP 


DROP 


10 


SR 


10,7 


STH 


10,HDRTDISP 


LA 


10,256 


STH 


10,HDRBLENG 


LA 


1CRDCNMLEN 


STH 


1CHDRMLENG 


MVI 


HDRMTYPE,HDRTYPEI 


CLI 


DSRBFNCD,DSRBFNRM 


BNE 


NEXTRD 



V 



USING DSICWB,11 

L 2,CWBDSRB GET THE ADD OF THE DSRB 

USING DSIDSRB,2 

LA 4,RGWALEN SET RGWA LENGTH IN REG 4 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXX 

X BUILD AN OUTPUT BUFFER IN THE CWBADATD AREA X 

X WITH A TEXT AREA LENGTH EQUAL TO THE RDCNMCMD DSECT WHICH * 
x IS THE READ RESPONSE AREA QUEUED BACK TO THE PSCP. X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXHXXXXXXX 

LA 7, CWBADATD GET THE • OF THE ADATD AREA 

USING BUFHDR.7 SET REG 7 AS BASE FOR BUFHDR 

LA 1CHDRTEXT GET ADDR OF TEXT PORTION 

USING RDCNMCMD, 10 SET REG 10 AS BASE FOR 

x RESPONSE AREA FOR QUEUEING BACK TO THE PSCP 

MVC CNMVERB(RDCNMEND-CNMVERB), BLANKS BLANK RESP AREA 

SET IFR CODE IN RESP AREA 

MOVE COMMAND NAME 

DROP RESP AREA BASE 

TEXT - START = HEADER LENGTH 

STORE DISPL. TO TEXT IN HDR 
GEN ACTUAL BUFFER SIZE 

STORE TOTAL BUFLEN IN HDR 

GET MSG LENGTH 

SET HEADER MSG LENGTH 

SET MSGTYPE 

IS THIS 1ST TIME ENTERED? 

IF NOT GO TO READ NEXT RECORD 

XXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXX*XXXXXXHXXXXXXXXXXXXX 
X X 

X CODE FOR 1ST TIME ENTERED FOLLOWS. X 

x x 

x 1) ISSUE DSIGET FOR A READ GLOBAL WORK AREA(RGWA). X 

X 2) STORE ITS ADDRESS IN THE DSRB. X 

x 3) INITIALIZE THE RGWA AND THE VSAM BUFFER HEADER. X 

X 4) SCHEDULE A READ FOR THE FIRST KEY REQUESTED. X 

x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXX 

LA 3,DSRBUSER SET ADD OF WHERE STOR ADD GOES 

LA 5,CWBADATD+240 GET ADD OF WORK AREA FOR LIST 

DSIGET LV= ( 4 ) , A= ( 3 ) , BNDRY=DBLWD , L ISTA= ( 5 ) , REENT=YES 

LTR 15,15 TEST RETURN CODE 

BZ INITRGWA IF GOOD GO SET UP RGWA 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXX 

X COULD NOT GET STORAGE FOR RGWA THEREFORE ISSUE X 

X INSUFFICIENT STORAGE MESSAGE, SET 'FREE DSRB' RETURN CODE X 
x AND RETURN TO DST. x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

MVI HDRMTYPE,HDRTYPEU SET MSGTYPE FOR OUTPUT 

L 10,MVTUFLD GEN ADDR WHERE MSG CSECT 

LA 10,8(,10) ADDR IS STORED 

L 10,0 (,10) GET MSG CSECT ADDR 

DSIMBS MID=261 ,SWB=CWBSWB,BFR=(7) ,MSGTBL=( 1 0) 

C 15.RTRNCD12 WAS ERR MSG BUILT O.K. | 

BNH MQSMSG1 YES, GO SEND MSG A 

BAL 14,SENDERR NO, GO BUILD INTERNAL MSG & SEND 

E-4 



WAS INTERNAL MSG SENT O.K. 

INDICATE FREE DSRB 

GO EXIT 

MQS ERROR, HALT EXECUTION 



LTR 14,15 

LA 15,8 

BZ SRDEXIT 

DC F'O' 
MQSMSG1 EQU * 

DSIMQS SWB=CWBSWB,BFR=(7),TASKID=DSRB0ID 

LTR 15,15 TEST MQS RETURN CODE 

BNZ ABEND651 

LA 15,8 INDICATE FREE THE DSRB 

B SRDEXIT GO TO RETURN LOGIC 

ABEND651 DC F'O' MQS OUTPUT FAILED, HALT EXECUTION 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X GET OF RGWA SUCCESSFUL x 

X SET UP VSAM BUFFER, INITIALIZE RGWA AND SCHEDULE READ FOR X 
x 1ST KEY REQUESTED. x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXX";4XXXXXXXXXXXXXXXX 

INITRGWA EQU x 

L 3,DSRBUSER GET ADDRESS OF THE RGWA 

USING RGWA, 3 SET REG 3 AS BASE FOR RGWA 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



INITIALIZE THE VSAM BUFFER HEADER I STORE THE BUFFER ADDRESS 
IN THE DSRB. 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXX 

MVC RGWAID(RGWALEN), BLANKS BLANK OUT THE RGWA 

GET ADDR OF VSAM BUFFER HDR 

STORE IT IN THE DSRB 

DROP TO REBASE BUFHDR 

SET REG 9 AS BASE FOR BUFHDR 

GET ADDR OF VSAM BUFFER TEXT 

TEXT - START = HEADER LENGTH 

STORE DISPL. TO TEXT IN HDR 

CALC. HDR + TEXT 

STORE TOTAL BUFLEN IN HDR 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXX 
X X 

x INITIALIZE THE READ GLOBAL WORK AREA (RGWA) FROM THE CNMRDCMD x 
x INPUT BUFFER. * 

x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXX 



LA 


9,RBUFHDR 


ST 


9,DSRBVDAD 


DROP 


7 


USING 


BUFHDR, 9 


LA 


10,HDRTEXT 


SR 


10,9 


STH 


10.HDRTDISP 


LA 


10,L'READBUF(10) 


STH 


1CHDRBLENG 



DROP 9 

USING BUFHDR, 6 

LH 10,HDRTDISP 

AR 10,6 

USING CNMRDCMD, 10 

MVC RGWAID(4),RGWACHRS 

MVC IKEY(4),RDIKEY 

MVC CURRKEY(4),RDIKEY 

MVC T0TREC(3),TREC 

MVC CURRT0T(3),ZER0 

MVC SUCCESS(3),ZER0 

MVC ENOFBUF(8),ENDBUF 



DROP TO REBASE BUFHDR 

SET REG 6 AS BASE FOR BUFHDR 

GET ADDR OF I/P COMMAND TEXT 

START+DISPLACEMENT = TEXT 

SET REG 10 AS BASE FOR BUFHDR 

MOVE IN ID 

MOVE IN INITIAL KEY TO READ 

SET CURRENT READ KEY 

MOVE IN TOT RECORDS TO READ 

SET NO. RECORDS READ TO ZERO 

SET SUCCESSFULLY READ TO 

SET END OF BUFFER CONSTANT 



Appendix E. Sample Data Services Command Processors E-5 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X X 

X SCHEDULE A READ FOR THE RECORD WHICH HAS A KEY EQUAL TO THE X 

X KEY IN THE RGWA FIELD CURRKEY. X 

x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SCHEDRD EQU * 

MVC READBUF(L'READBUF),ASTERIKS MOVE ASTERISKS IN BUFFER 
LA 9, CURRKEY SET REG TO • OF CURRENT KEY 

DS IZVSMS SWB=CWBSWB , DSRB=CWBDSRB , FUNC=GET , KEY= ( 9 ) , KEYLEN=FOUR , X 

OPTION=(DIR,KEQ,FKS),DATAREA=RBUFHDR 
LTR 15,15 TEST RETURN CODE 

BZ SRDEXIT IF GOOD GO TO EXIT 

XXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X SCHEDULED READ t AILED ISSUE MESSAGE AND GET OUT. * 

x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

MVI TYPRD,C T S' SET ERROR TYPE TO SCHEDULING 

ST 15,FDBK1 STORE MAJOR RETURN CODE 

ST 0,FDBK2 STORE MINOR RETURN CODE 

HEXEBC TO=MAJOR,FROM=FDBK1 

HEXEBC T0=MIN0R,FR0M=FDBK2 

DROP 6 

USING BUFHDR,7 BASE BUFFER HEADER AT CWBADATD 

MVI HDRMTYPE,HDRTYPEU SET MSGTYPE FOR OUTPUT 

L 10,MVTUFLD GEN ADDR WHERE MSG CSECT 

LA 10,8(,10) ADDR IS STORED 

L 10,0 (,10) GET MSG CSECT ADDR 

DSIMBS MID=256,SWB=CWBSWB,BFR=(7),MSGTBL=(10), 

P1=(XMAJ0R,8), * 

P2=(XMIN0R,8), * 

P3=(*CURRKEY,4), * 

P4=(*TYPRD,1 ) 

C 15,RTRNCD12 WAS ERR MSG BUILT O.K. 

BNH MQSMSG2 YES, GO SEND MSG 

BAL 14,SENDERR NO, GO BUILD INTERNAL ERRMSG * SEND 

LTR 15,15 WAS INTERNAL MSG SENT O.K. 

BZ CLEANUP YES, GO CLEAN UP AND EXIT 

DC F ! 0» MQS ERROR, HALT EXECUTION 

MQSMSG2 EQU x 

DSIMQS SWB=CWBSWB,BFR=(7),TASKID=DSRB0ID 

LTR 15,15 TEST MQS RETURN CODE 

BNZ ABEND657 

B CLEANUP GO TO CLEANUP LOGIC 

ABEND657 DC F'O' MQS OUTPUT FAILED, HALT EXECUTION 
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X X 

X CODE FOR READ OF NEXT RECORD FOLLOWS. * 

* X 

NEXTRD EQU * 

L 3,DSRBUSER GET ADDRESS OF THE RGWA 

USING RGWA, 3 SET REG 3 AS BASE FOR RGWA 
UPONE ADDR=CURRT0T,DIGITS=3 INCREMENT CURRENT TOTAL 

USING BUFHDR,7 SET REG 7 AS BASE FOR BUFHDR 

LH 10,HDRTDISP GET ADDR OF O/P COMMAND TEXT 

AR 10,7 START+DISPLACEMENT = TEXT 

USING RDCNMCMD,10 SET REG 10 AS BASE FOR 

X RESPONSE AREA FOR QUEUEING BACK TO THE PSCP 

L 15,DSRBRCMA GET PREVIOUS READ MAJ CODE 

LTR 15,15 WAS THE READ SUCCESSFUL? 

BNZ READERR IF NOT GO TO READ ERROR RTN. 

L 15,DSRBRCMI GET PREVIOUS READ MIN CODE 

LTR 15,15 WAS THE READ SUCCESSFUL? 

BZ LASTREC IF O.K. GO TEST FOR LAST RECD 

READERR EQU X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X READ ERROR PROCESSING FOLLOWS. X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

MVI CNMCODE,C'E ? MOVE IN CODE FOR ERROR RECORD 

MVC DBKEY(4),CURRKEY MOVE IN KEY OF RECORD 

HEXEBC TO=MAJRC,FROM=DSRBRCMA 

HEXEBC TO=MINRC,FROM=DSRBRCMI 

MVI TYPERR,C'R' SET ERROR TYPE TO READ 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X x 

X ISSUE MQS MACRO TO INVOKE READVS PROCESSOR(DSITDSRD) X 

x X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MQSREAD EQU X 

DSIMQS SWB=CWBSWB,BFR=(7),TASKID=DSRB0ID 

LTR 15,15 WAS MESSAGE QUEUED O.K. ? 

BZ SUMMTEST IF ZERO IT WAS 

DC F'0 T QUEUE FAILED, HALT EXECUTION 
LASTREC EQU x 

UPONE ADDR=SUCCESS,DIGITS=3 INCREMENT SUCCESSFUL READS CTR 
SUMMTEST EQU X 

CLC CURRT0T(3),T0TREC COMPARE CURRENT TOTAL TO TOTAL 
x TO BE READ 

BNL SUMMREC IF NOT < GO SEND LAST * SUM RECS 
FIRSTREC EQU x 

CLC SUCCESS, ONE COMPARE # SUCCESSES TO ONE 

BE SENDFRST GO SEND 1ST SUCCESSFUL RECORD 

UPONE ADDR=CURRKEY,DIGITS=4 INCREMENT SUCCESSFUL READS CTR 
B SCHEDRD GO SCHEDULE A READ 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X FIRST RECORD PROCESSING FOLLOWS. * 

x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SENDFRST EQU x 

MVI CNMCODE,C T F T MOVE IN CODE FOR FIRST RECORD 

MVC DBKEY(4),CURRKEY MOVE IN KEY OF RECORD 
MVC DBREC(48),READBUF MOVE IN RECORD READ 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X ISSUE MQS MACRO TO INVOKE READVS PROCESSOR(DSITDSRD) X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
DSIMQS SWB=CWBSWB,BFR=(7),TASKID=DSRB0ID 

LTR 15,15 WAS MESSAGE QUEUED O.K. ? 

BNZ ABEND655 IF NONZERO ABEND 

UPONE ADDR=CURRKEY,DIGITS=4 INCREMENT SUCCESSFUL READS CTR 
B SCHEDRD GO TO SCHEDULE READ 

ABEND655 DC F'O' QUEUE FAILED, HALT EXECUTION 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

x LAST RECORD AND SUMMARY RECORD PROCESSING FOLLOWS. x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SUMMREC EQU x 

DETERMINE IF THE LAST 

READ WAS SUCCESSFUL, 

IF NOT DO NOT ATTEMPT TO SEND 

BUT FINISH BY SENDING SUMMARY 

RECORD. 

MOVE IN CODE FOR LAST RECORD 
MOVE IN KEY OF RECORD 
BUF MOVE IN RECORD READ 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

x ISSUE MQS MACRO TO INVOKE READVS PROCESSOR(DSITDSRD) X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
DSIMQS SWB=CWBSWB,BFR=(7),TASKID=DSRB0ID 
LTR 15,15 WAS MESSAGE QUEUED O.K. ? 

SENDSMRC IF ZERO IT WAS, GO SEND SUMMARY 

F'O' QUEUE FAILED, HALT EXECUTION 
x 

CNMCODE,C'S' MOVE IN CODE FOR SUMMARY REC 

IKEYRSP(4),IKEY MOVE IN INITIAL KEY 

TRECRSP(3),T0TREC MOVE IN NBR OF ATTEMPTED READS 
RDSUCESSC3), SUCCESS MOVE IN NBR OF SUCCESSFUL READS 
DBREC(L'DBREC), BLANKS BLANK OUT LAST RECORD IN BUF 



L 


15,DSRBRCMA 


LTR 


15,15 


BNZ 


SENDSMRC 


L 


15,DSRBRCMI 


LTR 


15,15 


BNZ 


SENDSMRC 


MVI 


CNMCODE,C'L T 


MVC 


DBKEY(4),CURRKEY 


MVC 


DBREC(L T DBREC),R 



BZ 
DC 
SENDSMRC EQU 
MVI 
MVC 
MVC 
MVC 
MVC 
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LA 


4,RGWALEN 




DSIFRE R,LV=(4 




LTR 


15,15 




BNZ 


ABEND652 




LA 


15,8 




B 


SRDEXIT 


ABEND652 


DC 


F'O' FREE 



K X 

* ISSUE MQS MACRO TO INVOKE READVS PROCESSOR(DSITDSRD) * 

* x 

DSIMQS SWB=CWBSWB,BFR=(7),TASKID=DSRB0ID 

LTR 15,15 WAS MSG QUEUED O.K. ? 

BZ CLEANUP IF ZERO IT WAS, GO EXIT 

DC F'O' QUEUE FAILED, HALT EXECUTION 

X X 

X FREE THE RGWA CODE FOLLOWS. * 

x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CLEANUP EQU x 

GET LENGTH OF RGWA 
= (3) 

TEST FREE RETURN CODE 

INDICATE FREE THE DSRB 

EXIT MODULE 
FREE OF WORK AREA FAILED, HALT EXECUTION 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXX 
x STANDARD EXIT LINKAGE IS PERFORMED. REGISTER 15 WILL CONTAIN A * 
x RETURN CODE. * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXX 

SRDEXIT L 13,4(13) RESET TO CALLERS SAVE AREA 

L 14,12(13) RESTORE CALLERS 

LM 0,12,20(13) REGISTERS - EXCEPT 15 

BR 14 AND RETURN 

X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXHXXXXXXXXXXXXXXXXXXXXXXXX 
X THE FOLLOWING IS AN INTERNAL SUBROUTINE TO CONSTRUCT AND * 

x QUEUE AN ERROR MSG TO THE USER INDICATING THAT DSIMBM * 

x FAILED TO BUILD THE REQUESTED MESSAGE * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXX 

SENDERR EQU x 

LA 5,HDRTEXT GET END OF BUFFER ADDR 

LA 6,MBMERRLN GET MSG LENGTH 

STH 6,HDRMLENG SET MSG LENGTH IN BUFFER HEADER 

LA 6,256 GEN TOTAL BUFFER LENGTH 

STH 6,HDRBLENG SET BUFFER LENGTH IN BUF HEADER 

USING MBMERRDS,5 BASE ERROR MSG DSECT 

LA 6,MBMERRLN+HDRTEXT GEN ADDR OF TEMP AREA 

MVC MBMERRDS(MBMERRLN),MBMERR MOVE ERR MSG TO BUF 

CVD 15,0(,6) CONVERT RETURN CODE TO PACKED DECIML 

UNPK MBMRTRN(8),4(4,6) UNPACK TEMP CODE INTO MSG 

01 MBMRTRN+7,X'F0' CHANGE SIGN »C TO 'F T 

L 1,CWBSWB GET ADDR OF SWB 

L 15,MBSMIDA-DSISWB(,1) GET MSG NBR 

CVD 15,0(,6) CONVERT MSG NBR TO PACKED DECIMAL 

UNPK MBMMSGNM(8),4(4,6) UNPACK MSG NBR INTO ERRMSG 

01 MBMMSGNM+7,X'F0' CHANGE SIGN 'C TO Y F' 

DSIMQS SWB=CWBSWB,BFR=(7),TASKID=DSRB0ID 

BR 14 RETURN TO MAINLINE 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



Appendix E. Sample Data Services Command Processors E-9 



X 

X 


CONSTANTS 


FOLLOW 




UPTAB 


DC 


CL16 


'1234567890000000' 


HEXTAB 


DC 


CL16 


T 0123456789ABCDEF' 


FOUR 


DC 


F'4' 




KEY LENGTH CONSTANT 


LAST 


DC 


C'L' 






FIRST 


DC 


C'F' 






SUMM 


DC 


C'S' 






ERROR 


DC 


C'E' 






READRSP 


DC 


CL8' 


READRESP' 




ENDBUF 


DC 


CL8' 






R6WACHRS 


DC 


CL4' 


RGWA* 




BLANKS 


DC 


256C 


;i t 




ONE 


DC 


CL3' 


001' 




IFRCDE 


DC 


XL2' 


0003' 




ZERO 


DC 


CL3' 


000' 




RTRNCD12 


DC 


F'12 


:' DSIMBM ERROR CHECK 


MBMERR 


DS 


OC 


INTERNAL 


ERR MSG FOR DSIMBM FAILURE 




DC 


C'xxxERROR IN DSIMBM, RETURN CODE=' 




DC 


CL8' 


00000000' 






DC 


C, 


MESSAGE NBR=' 


i 




DC 


CL8' 


00000000' 






DC 


C DSITDSRD TERMINATING COMMAND PROCESSING* 


MBMERRND 


EQU 


X 






MBMERRLN 


EQU 


MBMERRND-MBMERR 


LENGTH OF ERROR MSG 


RGWA 


DSECT 






CNMREAD WORK AREA 


RGWAID 


DS 


CL4 




RGWA ID FIELD 




DS 


C 




BLANK 


IKEY 


DS 


CL4 




INITIAL KEY TO READ 




DS 


C 




BLANK 


TOTREC 


DS 


CL3 




NUMBER OF RECORDS TO READ 




DS 


C 




BLANK 


CURRKEY 


DS 


CL4 




CURRENT KEY BEING READ 




DS 


C 




BLANK 


CURRTOT 


DS 


CL3 




NUMBER OF RECORDS READ SO FAR 




DS 


C 




BLANK 


SUCCESS 


DS 


CL3 




NO. OF RECORDS READ SUCCESSFULLY 




DS 


CL2 




BLANK 


FDBK1 


DS 


CL« 




RET CODE FEEDBACK AREA 


FDBK2 


DS 


CL4 




RET CODE FEEDBACK AREA 




DS 


C 




BLANK 


RBUFHDR 


DS 


CL(BUFHDRND-BUFHDR) NCCF BUFFER HEADER 


READBUF 


DS 


CL48 




VSAM READ BUFFER 


ENOFBUF 


DS 


CL8 




' ' END OF BUFFER IND. 


MAJOR 


DS 


CL8 




MAJOR RETURN CODE 


MINOR 


DS 


CL8 




MINOR RETURN CODE 




DS 


C 




BLANK 


TYPRD 


DS 


CL1 




TYPE OF READ ERROR 


RGWA END 


EQU 


X 






RGWALEN 


EQU 


RGWAEND-RGWA 
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CNMRDCMD DSECT 
RDVERB DS CL8 



CNMREAD COMMAND DSECT 
'CNMREAD' COMMAND ID 





DS 


CL4 








BLANKS 


RDIKEY 


DS 
DS 


CL4 
C 








KEY OF 1ST RECORD TO BE R] 
BLANK 


TREC 


DS 
DS 


CL3 
CL2 








NUMBER OF RECORDS TO BE R] 
BLANKS 


RDCNMCMD 


DSECT 










READ RESPONSE DSECT 


CNMIFR 


DS 


CL2 








IFR CODE AREA 


CNMVERB 


DS 
DS 


CL8 
CL2 








'READRESP' COMMAND 
BLANKS 


CNMCODE 

X 

* 


DS 


C 








TYPE CODE FOR MESSAGE O/P 




E 


= 


ERROR 


MESSAGE 


x 




F 


= 


FIRST 


RECORD READ 


K 




L 


= 


LAST 


RECORD 


READ 


X 
X 




S 


~ 


SUMMARY RECORD 


DS 


C 








BLANK 


DBKEY 


DS 
DS 


CL4 
CL4 








KEY OF RECORD READ 
BLANKS 


MAJRC 


DS 


CL8 








MAJOR RETURN CODE ON READ 


MINRC 


DS 
DS 


CLS 
C 








MINOR RETURN CODE ON READ 
BLANK 


IKEYRSP 


DS 
DS 


CL4 
C 








INITIAL KEY READ 
BLANK 


TRECRSP 


DS 
DS 


CL3 

C 








TOTAL RECORDS TO BE READ 
BLANK 


RDSUCESS 


DS 
DS 


CL3 
C 








TOTAL READ SUCCESSFULLY 
BLANK 


TYPERR 
X 


DS 


CL1 








TYPE OF READ ERROR 




S 


= 


SCHEDULING 


ERROR 


X 

x 




R 


~ 


READ 


ERROR 




DS 


CL4 








BLANKS 


DBREC 


DS 


CL48 








RECORD READ FRO DATA BASE 


RDCNMEND 


EQU 


X 










RDCNMLEN 


EQU 


RDCNMEND-RDCNMCMD 





MBMERRDS DSECT DSECT FOR INTERNAL ERRMSG FOR DSIMBM FAILURE 

DS CL32 
MBMRTRN DS CL8 RETURN CODE FROM DSIMBM 

DS CL14 
MBMMSGNM DS CL8 MSG NBR THAT CAUSED FAILURE 



DSITDSRD CSECT 

ASTERIKS DC (L 'READBUF)C *' 
END DSITDSRD 
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DSITDSOL Command Processor 



XXXXXXXXXXXXXX*KKXXXXXXXXXXKXXXXXHHXXXXXXHXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X K 

x NAME = DSITDSOL X 

x x 

x FUNCTION = THIS COMMAND PROCESSOR WILL SEND REQUESTS TO CNMI x 

X AND HANDLE THE RESPONSES. X 

x x 

* ENTRY POINT = DSITDSOL x 
x * 
X INPUT = x 
X REGISTERS: X 
x Rl = DSICWB ADDRESS x 
x R13 = ADDRESS OF STANDARD SAVEAREA X 
x R14 = RETURN ADDRESS x 
X R15 = ENTRY POINT OF ROUTINE x 
x x 
X DSICWB (POINTED TO BY Rl - PSCP AND DSCP): X 
x CWBSAVEA = AN 18 WORD SAVE AREA FOR USE IN THIS CMD PROC. x 
X CWBBUF = ADDRESS OF A MESSAGE BUFFER. THE BUFFER x 
x CONTAINS A STANDARD NCCF BUFFER HEADER. x 
X CWBPDB = ADDRESS OF A PDB FOR USE IN THIS CMD PROC. X 
X NOTE - THE PDB WILL CONTAIN VALID INFORMATION x 
X ONLY WHEN CONTROL IS RECEIVED INITIALLY FROM * 
X THE TASK (OST OR DST) DRIVING THIS CMD PROC. x 
x CWBSWB = ADDRESS OF A SWB FOR USE IN THIS CMD PROC. x 
X CWBTIB = ADDRESS OF THE DSIOST OR DSIZDST TIB. X 
X CWBADATD = A 256 BYTE WORK AREA FOR USE IN THIS CMD PROC. X 
X CWBDSRB = FOR A DSCP ADDRESS OF A DSRB CONTAINING X 
X INFORMATION RELATED TO PROCESSING OF THE X 
X COMMAND. FOR A PSCP THIS FIELD IS MEANINGLESS. x 
X X 
X DSIDSRB (POINTED TO BY CWBDSRB - DSCP ONLY): X 
X DSRBFNCD = REASON FOR INVOCATION x 
X DSRBRCMA = MAJOR RETURN CODE ON COMPLETION OF REQUEST X 
x DSRBRCMI = MINOR RETURN CODE ON COMPLETION OF REQUEST X 
X DSRBOID = OPID OF OST THAT INVOKED US x 
x DSRBUSER = WORK FIELD X 
X DSRBINPT = ADDRESS OF CNMI BUFFER x 
X x 
x OUTPUT = x 
x REGISTERS: X 
x RO - R14 = RESTORED TO INPUT STATUS x 
x R15 = RETURN CODE x 

* x 
X RETURN CODE (R15 ON EXIT): x 
X FOR A DSCP: X 
X 8 = RELEASE THE DSRB PASSED TO THIS CMD PROC - FCT X 
X REQUESTED IS COMPLETE. X 
X = MAINTAIN THE DSRB PASSED TO THIS CMD PROC - x 
x RESUME PROCESSING HAS BEEN SCHEDULED. x 
X x 
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DESCRIPTION = 

THIS COMMAND PROCESSOR IS INVOKED BY DSITPSOL WHICH HAS QUEUED 
A COMMAND WITH THE FOLLOWING POSSIBLE SYNTAXES: 

1 ) - NCFCNMI <PUNAME> 

2) - NCFCNMI <PUNAME> <OPTION> 

WHERE OPTION := REJECT | REPLACE 

DSITPSOL HAS VERIFIED THE PUNAME FOR LENGTH AND THE OPTION, 
IF PRESENT. DSITDSOL PUTS THE PUNAME IN A WORK AREA, SELECTS 
A REAL OR DUMMY RU, AND INVOKES DSIZCSMS TO MAKE THE CNMI 
REQUEST. IF THE REQUEST COMPLETES SUCCESSFULLY OR WITH A 
NEGATIVE RESPONSE, AN APPROPRIATE COMMAND IS FORMATTED AND 
QUEUED TO DSITPSOL. 

THE REJECT OPTION CAUSES THE USER FORWARD EXIT, DSICPUTE, 

TO REJECT THE REQUEST. THE REPLACE OPTION CAUSES DSICPUTE 

TO SUBSTITUTE A GOOD RU FOR THE DUMMY RU AND TO REQUEST BUFFER 

SUBSTITUTION. 



EXIT = RETURN TO ADDRESS IN RH, WITH RETURN CODE SET IN R15 

EXTERNAL REFERENCES = NONE 

CONTROL BLOCKS = 

DSICWB - COMMAND-PROCESSOR WORK BLOCK 

DSIDSRB - DATA SERVICES REQUEST BLOCK (DSCP) 

DSIPDB - PARSE DATA BLOCK 

DSISWB - SERVICE-ROUTINE WORK BLOCK 

DSITIB - TASK INFORMATION BLOCK 

DSITVB - TASK VECTOR BLOCK 

DSIMVT - MAIN VECTOR TABLE 

DSISVL - SERVICE ROUTINE VECTOR LIST 

DSIIFR - INTERNAL FUNCTION REQUEST 

MACROS = DSICBS,DSIGET,DSIFRE,DSIMQS, DSIZCSMS 



XXXXXXXXXXXXXXXXKXXXXX^XXXXXXXXXXXXKXXXXXXXXKX^XXXKXXXXXXXXXXK^XXXXXXXX 
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DSITDSOL CSECT 
XXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X MODULE ADDRES c *niLITY IS ESTABLISHED, ADDRESSABILITY TO THE CWB IS X 
x ESTABLISHED, AND THE CWB SAVEAREA IS USED IN PERFORMING STANDARD X 
X ENTRY LINKAGE. * 

XXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X 

USING x,R15 ESTABLISH ADDRESSABILITY FOR BRANCH 

BRANCH AROUND NAME AND DATE 



DROP ADDRESSABILITY FOR BRANCH 
SAVE REGS IN CALLERS AREA 
PUT MY ENTRY POINT INTO REG 12 
ESTABLISH MODULE ADDRESSABILITY 
PUT CWB ADDR INTO R3 
BASE THE CWB 
GET MY SAVEAREA ADDR 
SET MY BACKWARD POINTER 
SET CALLERS FORWARD POINTER 
PUT MY SAVEAREA INTO REG 13 
ZERO MY FORWARD POINTER 
GET MY TIB ADDR 
tt) GET MY TVB ADDR 

PUT MY TVB ADDR IN 1ST WORD OF SAVEA 
i6) GET MY MVT ADDR 

USING DSIMVT,R4 BASE THE MVT 

L R5,CWBDSRB GET MY DSRB ADDR 

USING DSIDSRB,R5 BASE THE DSRB 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X INITIALIZE THE OUTPUT BUFFER HEADER FOR MESSAGES TO THE OST x 
x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXHXXXXXXXXXXXXXXXXXXXXXX 
X 

GET OUTPUT BUFFER ADDR 

BASE THE BUF HEADER ON THE OUTPUT BUF 

GEN LENGTH OF BUFFER HEADER 
STORE OFFSET TO MSG IN HEADER 
GEN LENGTH OF BUFFER 
STORE BUFFER LENGTH IN HEADER 
INIT MESSAGE TYPE TO USER 
ZERO INDICATORS IN HEADER 
HDRD0MID(8),MVTCURAN STORE DOMAIN ID IN HEADER 
HDRPOI(L T HDRPOI),HDRPOI ZERO POI INFO IN HEADER 
HDRTSTMP(4),HDRTSTMP PUT A PACKED ZERO 
HDRTSTMP+3,X'0C INTO THE TIME STAMP 

XXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



B 


SAVEREGS 


DC 


C'DSITDSOL 


DC 


C'&SYSDATE' 


SAVEREGS EQU 


X 


DROP 


R15 


STM 


R14,R12,12(R13) 


LR 


R12,R15 


USING 


DSITDSOL, R12 


LR 


R3,R1 


USING 


DSICWB,R3 


LA 


R2,CWBSAVEA 


ST 


R13,4(,R2) 


ST 


R2,8(,R13) 


LR 


R13,R2 


XC 


8(4,R13),8(R13) 


L 


R4,CWBTIB 


L 


R6,TIBTVB-DSITI 


ST 


R6,0(,R13) 


L 


R4,TVBMVT-DSI~V 



LA R7,CWBADATD 

USING BUFHDR,R7 

LA R8,BUFHDRND-BUFHDR 

STH R8,HDRTDISP 

LA R8,256 

STH R8,HDRBLENG 

MVI HDRMTYPE,HDRTYPEU 

MVI HDRIND,X'00' 

MVC 

XC 

XC 

MVI 



IF THIS IS THE INITIAL INVOCATION, GETMAIN AN AREA FOR THE CNMI 
BUFFER AND VERIFY THE OPERANDS. IF EVERYTHING IS OK, 
ISSUE DSIZCSMS TO SEND CNMI REQUEST. 
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* 

CLI DSRBFNCD,DSRBFNRM IS THIS THE INITIAL INVOCATION 
BNE CNMIRESP NO, GO LOOK AT THE CNMI RESPONSE 

DSIGET LV=256, GET THE CNMI BUF AND QUEUE TO TVB 

A=DSRBUSER, 

LISTA=BUFHDRND, 

Q=YES, 

TASKA=(R6), 

REENT=YES, 

EXIT=NO 

R15,R15 

GETMERR 

R6,CWBPDB 

R8,CWBBUF 

DSIPDB,R6 

R9,PDBTABLE 



TEST THE RETURN CODE 

IF NOT ZERO, GETMAIN ERROR 

GET ADDR OF PDB 

GET ADDR OF INPUT COMMAND BUF 

BASE THE PDB 

GET STARTING ADDR OF PDB ENTRIES 



SETOPTN 

* 



REPLRU 
x 

SENDRU 
x 



LTR 

BNZ 

L 

L 

USING 

LA 

LA R9,PDBENTND-PDBENTRY(,R9) GET ADDR OF 2ND ENTRY 

USING PDBENTRY.R9 BASE THE PDBENTRY 



MVI 

MVC 

AH 

XR 

IC 

BCTR 

EX 

LA 

CH 

BE 

LA 

B 

EQU 



BUFHDRND,X'40 T INITIALIZE TEMP AREA FOR 
BUFHDRND+1(7),BUFHDRND PUNAME TO BLANKS 



R8,PDBDISP 

RIO, RIO 

R10,PDBLENG 

R10,R0 

RIO, MOVE 

RIO, 3 

R10,PDBNOENT 

SETOPTN 

R10,REQMS 

SENDRU 



GEN ADDR OF PUNAME IN INPUT BUF 

ZERO REG 10 

GET LENGTH OF PUNAME 

DECREMENT MOVE LENGTH 

MOVE PUNAME TO TEMP AREA 

PUT 3 IN REG 10 FOR ENTRIES TEST 

TEST FOR 3 ENTRIES IN COMMAND 

IF 3, GO SEE WHAT OPTION SPECIFIED 

GET ADDR OF THE REAL RU 

GO SEND THE RU 



xxxSELECT THE DUMMY RU ASSOCIATED WITH THE SPECIFIED OPTION 



LA 

L 

AH 

CLC 

BNE 

LA 

B 

EQU 



R9,PDBENTND-PDBENTRY(,R9) GEN ADDR OF 3RD PDB ENTRY 
R8,CWBBUF GET STARTING ADDR OF INPUT BUF 

R8,PDBDISP GEN ADDR OF OPTION IN INPUT BUF 
0(3,R8),REJ COMPARE FOR REJECT 

IF NOT EQUAL, OPTION MUST BE REPLACE 
GET ADDR OF DUMMY REJECT RU 
GO SEND THE RU 



REPLRU 
R10,REJ 
SENDRU 
x 



XXXSINCE OPTION WAS VERIFIED BY DSITPSOL IT MUST BE REPLACE 

LA R10,REPL GET ADDR OF DUMMY REPLACE RU 

EQU x 

xxxiSSUE DSIZCSMS TO SEND FORWARD RU, CHECK RESULT 

LA R8,BUFHDRND GET ADDRESS OF PUNAME 

DSIZCSMS SWB=CWBSWB, 

DSRB=(R5), 

INPUT=DSRBUSER, 

LENGTH=LNGTH256, 

RU=(R10), 

RULENG=LNGTH8, 

DEST=(R8) 
LTR R0,R0 TEST MAJOR RETURN CODE 
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LA 
STH 
MVC 
UNPK 
MVC 
01 
01 
TR 
LA 
B 
CHKFWDEX EQU 



BNZ CHKFWDEX IF NOT ZERO, EXIT MAY HAVE REJECTED 

***RU SCHEDULED OK, INIT BUFHDR AND MOVE OK MSG TO OUTPUT BUF 
Rll ,L T SCHELDOK GET LENGTH OF MSG 
R11,HDRMLENG STORE MSG LENGTH IN BUF HEADER 
BUFHDRND(L T SCHELDOK),SCHELDOK MOVE MSG TO OUTPUT BUF 
BUFHDRND+37(3),DSRBPRID(2) UNPACK PRID INTO OUT BUF 
BUFHDRND+40U ),DSRBPRID+1 MOVE LAST BYTE TO OUT BUF 
BUFHDRND+39,X'F0' MAKE ZONE CORRECT 
BUFHDRND+40,X'F0 T MAKE ZONE CORRECT 
BUFHDRND+37(4),TRANSTBL-240 MAKE ALL CHARS PRINTABLE 



R11 ,0 

EXIT 

x 



INDICATE DSRB SHOULD NOT BE FREED 
GO SEND MSG AND EXIT 



CNMMERR 



GETMERR 



KXHDETERMINE IF THE USER FORWARD EXIT REJECTED THE REQUEST 



LA R11,SWBCEXIT 
CR R0.R11 
BNE CNMMERR 



GET TEST VALUE FOR USER EXIT REJECT 
TEST MINOR RETURN CODE FOR REJECT 
IF NOT EQUAL, WE HAVE A CNMM ERROR 



KXKINIT BUF HEADER FOR MSG INDICATING USER EXIT REJECT 

LA Rll ,L'FWEXITRJ GET MSG LENGTH 

STH R11,HDRMLENG STORE MSG LENGTH IN OUTPUT BUF HDR 

MVC BUFHDRND(L'FWEXITRJ),FWEXITRJ MOVE EXIT REJ MSG TO BUF 

B FREEBUF GO FREE BUF, SEND MSG, AND EXIT 

EQU * 

XXKDSIZCSMM COULD NOT EXECUTE THE REQUEST, SEND ERROR MSG 

LA R11,L'CNMMREJ GET LENGTH OF MSG 

STH R11,HDRMLENG STORE MSG LENGTH IN OUTPUT BUF HDR 

MVC BUFHDRND(L'CNMMREJ),CNMMREJ MOVE MSG TO OUTPUT BUF 

STCM R15,X'F T ,BUFHDRND+43 PUT MAJOR RETURN CODE IN BUF 

UNPK BUFHDRND+43(7),BUFHDRND+43(4) UNPACK THE RETURN CODE 

STCM R15,X ? 1 T ,BUFHDRND+50 STICK LAST BYTE IN BUF 

01 BUFHDRND+49,X T F0' MAKE ZONE CORRECT 

01 BUFHDRND+50,X , F0' MAKE ZONE CORRECT 

TR BUFHDRND+43(8),TRANSTBL-240 MAKE ALL CHARS PRINTABLE 

STCM RO,X'F' ,BUFHDRND+61 PUT MINOR RETURN CODE IN BUF 

UNPK BUFHDRND+61C7),BUFHDRND+61(4) UNPACK THE RETURN CODE 

STCM RO,XM ' ,BUFHDRND+68 STICK LAST BYTE IN BUF 

01 BUFHDRND+67,X'F0' MAKE THE ZONE CORRECT 

01 BUFHDRND+68,X'F0' MAKE THE ZONE CORRECT 

TR BUFHDRND+6K8),TRANSTBL-240 MAKE ALL CHARS PRINTABLE 

B FREEBUF GO FREE BUFFER, SEND MSG, AND EXIT 

EQU * 

xxxGETMAIN FAILED FOR CNMI BUFFER, INIT BUF HDR AND MOVE MSG 

LA R11,L T GMERRMSG GET LENGTH OF GETMAIN ERROR MSG 

STH R1UHDRMLENG STORE MSG LENGTH IN OUTPUT BUF HDR 

MVC BUFHDRND(L'GMERRMSG),GMERRMSG MOVE MSG TO OUTPUT BUF 

LA Rll, 8 INDICATE THAT DSRB SHOULD BE FREED 

B EXIT GO SEND MSG AND EXIT 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKKXXXXXXXXXXXXXXXXXXXXXXX 



IF THE REQUESTED FUNCTION WAS SUCCESSFULLY COMPLETED, BUILD THE 

APPROPRIATE COMMAND TO REINVOKE DSITPSOL. 

IF UNSUCCESSFUL COMPLETION, FORMAT THE ERROR MSG . 



X 
X 

x 
x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

CNMIRESP EQU * 

L R8,DSRBINPT GET ADDR OF CNMI BUFFER 

CLI DSRBFNCD,DSRBFSOL TEST FOR SOLICITED FUNCTION CODE 

BNE FNCTERR IF NOT EQUAL, GO SEND ERROR MSG 

CLC DSRBRCMIC4),RSPG00D TEST FOR GOOD MINOR RTN CODE 

BNE CHKNEGRP IF NOT GOOD, GO CHECK FOR NEG RESP 

MVC BUFHDRND+2(9),CNMIDELV MOVE DELIVER CMND TO OUTPUT BUF 

B BLDCMND GO COMPLETE COMMAND BUILD 

CHKNEGRP EQU * 

CLC DSRBRCMI(4),RSPNGR TEST FOR NEGATIVE RESPONSE 

BNE FNCTFAIL IF NOT EQUAL, GO FORMAT ERROR MSG 

MVC BUFHDRND+2(9),CNMINEGR MOVE IN NEG RESPONSE CMND 



BLDCMND 
x 



FNCTERR 
x 



FNCTFAIL 
x 



MVI 

MVC 

LH 

AH 

BCTR 

EX 

LA 

STH 

B 

EQU 



HDRMTYPE,HDRTYPEI SET MSG TYPE TO COMMAND REQUEST 
BUFHDRND(2),INTRNLRQ SET IFR CODE 

R9,HDRMLENG-BUFHDR(,R8) GET INPUT RESPONSE LENGTH 
R8,HDRTDISP-BUFHDR(,R8) POINT 8 TO START OF RESPONSE 



R9,R0 

R9,M0VERU 

R9,12(,R9) 

R9,HDRMLENG 

FREEBUF 

x 



DECREMENT MOVE LENGTH 

MOVE RESPONSE TO OUTPUT BUFFER 

GEN OUTPUT MSG LENGTH 

PUT MSG LENGTH IN OUTPUT BUF HDR 

GO FREE CNMI BUF AND EXIT PROCESSING 



LA 

STH 

MVC 

MVC 

UNPK 

NI 

NI 

TR 

B 

EQU 



R11 ,L'BADFNCT 
R11 ,HDRMLENG 



XXXFUNCTION CODE DID NOT INDICATE A SOLICITED RESPONSE 

GET LENGTH OF ERROR MSG 
PUT MSG LENGTH IN OUTPUT BUF HDR 
BUFHDRND(L T BADFNCT),BADFNCT MOVE MSG TO OUTPUT BUF 
BUFHDRND+31 (1 ),DSRBFNCD MOVE FUNCTION CODE TO BUFFER 
BUFHDRND+30C1 ) , BUFHDRND+31 (1) SWAP NIBBLES 
BUFHDRND+30,X'0F' ZERO THE ZONE 
BUFHDRND+31 ,X' OF' ZERO THE ZONE 
BUFHDRND+30(2),TRANSTBL MAKE CHARS PRINTABLE 
FREEBUF GO FREE CNMI BUFFER AND EXIT 

x 



xxxREQUEST DID NOT COMPLETE SUCCESSFULLY, BUILD ERROR MSGxxx 

LA R11 ,L'UNSUCCES GET LENGTH OF ERROR MSG 

STH R11,HDRMLEKG PUT MSG LENGTH IN OUTPUT BUF HDR 

MVC BUFHDRND(L'UNSUCCES),UNSUCCES MOVE MSG TO OUTPUT BUF 

MVC BUFHDRND+42(4),DSRBRCMA MOVE MAJOR RETURN CODE TO BUF 

UNPK BUFHDRND+42(7),BUFHDRND+42(4) UNPACK THE RETURN CODE 

MVC BUFHDRND+49U ),DSRBRCMA+3 MOVE LAST BYTE 

01 BUFHDRND+48,X'F0' MAKE THE ZONE CORRECT 

01 BUFHDRND+49,X'F0' MAKE THE ZONE CORRECT 

TR BUFHDRND+42(8),TRANSTBL-240 MAKE ALL CHARS PRINTABLE 
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MVC BUFHDRND+60(7),DSRBRCMI MOVE MINOR RETURN CODE TO BUT 

UNPK BUFHDRND+60(7),BUFHDRND+60C4) UNPACK THE RETURN CODE 

MVC BUFHDRND+67(1),DSRBRCMI+3 MOVE LAST BYTE 

01 BUFHDRND+66,X'F0' MAKE THE ZONE CORRECT 

01 BUFHDRND+67,X'F0' MAKE THE ZONE CORRECT 

TR BUFHDRND+60(8),TRANSTBL-240 MAKE ALL CHARS PRINTABLE 

**XXXXXXXXXXXXXXXXXXXXXXXXX*XXXX*************XXXXXXX*******XXXXX******X 

X x 

x FREE THE CNMI BUFFER AND CONTINUE WITH EXIT PROCESSING * 

x x 

XX XXXXXX XXX XXXX XX XX XXX XXXXXK XXX XXXXXXXXXXXXXXXXX**** ******************* 
* 

FREEBUF EQU * 

LA R11 ,CWBADATD+241 GET ADDR OF WORK AREA 
L R2,CWBTIB GET MY TIB ADDR 

L R2,TIBTVB-DSITIB(,R2) GET MY TVB ADDR 
DSIFRE LV=256, 





A=DSRBINPT, 




LISTA=(R11), 




Q=YES, 




TASKA=(R2), 




EXIT=NO 


LA 


R11,8 


LTR 


R15,R15 


BZ 


EXIT 


DC 


F'O' 



EXIT 



INDICATE THAT DSRB SHOULD BE FREED 
TEST FOR GOOD FREE 

IF OK, GO SEND OUTPUT BUF AND EXIT 
BAD FREE, HALT EXECUTION 
*****xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx****xxxxxxxxx 

X X 

x QUEUE THE OUTPUT BUFFER TO THE OST THAT INVOKED US, RESTORE X 
x THE REGS AND RETURN TO THE DST x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxxxxx***xxxxxxxxxxxxxxxxx 

X 

EQU * 

DSIMQS SWB=CWBSWB, 

BFR=(R7), 

TASKID=DSRBOID 

LTR R15,R15 TEST FOR GOOD MQS 

BZ RESTOR IF OK, GO RESTORE REGS AND EXIT 

DC F'O' MQS FAILED, HALT EXECUTION 
EQU x 

xxxPERFORM STANDARD EXIT LINKAGE PROCESSINGX** 

LR R15,R11 SET THE RETURN CODE 

L R13,4(,R13) GET CALLERS SAVEAREA ADDR 

L R14,12(,R13) RESTORE REG 14 

LM R0,R12,20(R13) RESTORE REGS 0-12 

BR R14 RETURN TO DST 
*****xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx************xxxxxxxxxxxxxxx 

X X 

x DECLARES x 

x x 

xxxxx***********xx**x***xxxxx*******************xxxxxxxxxxxxxxxxxxxxxxx 



RESTOR 
* 
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RSPGOOD 


DC 


RSPNGR 


DC 


LNGTH256 


DC 


LNGTH8 


DC 


MOVE 


MVC 


MOVERU 


MVC 


REJ 


DC 


REPL 


DC 


REQMS 


DC 


SCHELDOK 


DC 


FWEXITRJ 


DC 


CNMMREJ 


DC 


GMERRMSG 


DC 


TRANSTBL 


DC 


UNSUCCES 


DC 


BADFNCT 


DC 


INTRNLRQ 


DC 


CNMIDELV 


DC 


CNMINEGR 


DC 



A(DSRCGOOD) 

A(DSRCNGRP) 

F'256' 

F'8' 

BUFHDRND(0),0(R8) OBJECT OF EXECUTE TO MOVE PUNAME 

BUFHDRND+11(0),0(R8) OBJECT OF EXECUTE TO MOVE CNMI RSP 

XL8'D9C5D1 OOOOOOOOOO' DUMMY REJECT RU 

XL8'D9C5D70000000000' DUMMY REPLACE RU 

XL8'4103040000000000' THE REAL RU 

C'CNMI REQUEST HAS BEEN SCHEDULED-PRID=0000 ' 

C'USER FORWARD EXIT HAS REJECTED THIS REQUEST' 

C'DSIZCSMM INDICATED ERROR CONDITION MAJOR=X" "- 

MINOR=X" '" 
C'GETMAIN FOR CNMI BUFFER FAILED' 
C0123456789ABCDEF' 

C'FUNCTION COMPLETED UNSUCCESSFULLY MAJOR=X' ' " M- 
INOR=X" '" 

C INVALID FUNCTION CODE— CODE=X" '" 

Y(IFRCODCR) IFR CODE FOR CROSS TASK CMND QUEUEING 
C CNMIDELV ' VERB FOR DELIVER RESPONSE 
C CNMINEGR ' VERB FOR NEGATIVE RESPONSE 
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Appendix F. Sample Full-Screen Command Processor 



This appendix is an example of a user-written full-screen command processor. 
Note: This command processor is not executable as it is shown in this appendix. 



From OST 




FULLSCR 



^ 



FSAPPL 



WRITREAD 




Performs 

Full-Screen 

Input/Output 



To OST 



To OST 



. ■ y , ' JN,. Initial entry 
— ^v^ Final exit 



WRITE only 

READ and WRITE/READ 
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c 



FULLSCR 



) 



Initialize. 




DISGET 



Obtain work space 



Ensure that you are using 
the DSICWB passed to you. 




i 




Full- 
Screen 
Input 
? 


1 


' 


Assume a RESHOW 
request. 


Move full-screen data to 
FSAPPL buffer. 


1 


' 


1 




Fake CLEAR key input. 




1 


' 


1 



Restore FSAPPL saved 
status and registers. 



c 



Return to FSAPPL and 
continue processing 







Set up new save area in 
work space. 



Process command 
parameter with 
DSIPAS. 



Call full-screen 
application program 
FSAPPL. 



Final exit. 



DSIFRE 



Free work area. 



DSIPSS 



'PROG COMPLETE' 
message issued. 

I Return to OST. 1 



D I SPSS 



Issue Error Message 



c 



Exit 



3 



F-2 



f WRITREAD J 


1 r 


Initialize. 


1 


Save FSAPPL registers. 


i 


t 


Set up panel parameter 
list. 


* 


DSIPSS 


TYPE = PANEL 




Q 



Return to FSAPPL and 
continue processing 



) 



DSIPSS 



Issue error message. 



DSIFRE 



Free work area. 



-c 



Return to OST. 



) 



Input is required. 



Restore NCCF registers. 






Return to OST to obtai 
input. 
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TITLE 'FULLSCR - NCCF 3270 PANEL DRIVER 1 

X /XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X X 

XMODULE NAME: FULLSCR X 

x X 

^DESCRIPTIVE NAME: NCCF PANEL DRIVER X 

^FUNCTION: THIS MODULE DRIVES A NCCF FULL SCREEN COMMAND PROCESSOR. x 

X NCCF. x 

X X 

^ATTRIBUTES: REENTRANT x 

X x 

XCOMMAND SYNTAX: VERB <XYZ> x 
X »XYZ' IS OPTIONAL. IF NOT SPECIFIED, IT IS NOT PASSED TO FSAPPL. x 
X »XYZ» MAY HAVE PARAMETER SYNONYMS DEFINED WITH THE 'PARMSYN* NCCF x 

x DEFINITION STATEMENT. DSIPAS IS USED TO OBTAIN THE REGULAR x 

X VALUE. x 

x x 

XENTRY POINT: FULLSCR x 

x PURPOSE: TO DEMONSTRATE FULL SCREEN PANEL MODE x 

X LINKAGE: CALL x 

X INPUT: STANDARD NCCF COMMAND PROCESSOR LINKAGE x 

X REGISTERS: R1=CWB ADDRESS CONTAINING: x 

X TIB ADDRESS x 

X SWB ADDRESS X 

X PDB ADDRESS x 

X COMMAND BUFFER ADDRESS x 

X R13=SAVE AREA ADDRESS x 

X R14=RETURN ADDRESS x 

X R15=ADDR OF FULLSCR X 

X X 

XEXIT NORMAL: X 

X LINKAGE: RETURN TO CALLER X 

X OUTPUT: X 

X REGISTERS: X 

X UNCHANGED REGISTERS: ALL REGISTERS EXCEPT R15 x 

X OUTPUT REGISTERS: R15 CONTAINS A RETURN CODE FOR CALLER. x 

x R15 = - NO ERRORS X 

XEXIT ERROR: NONE. x 

X X 

XEXTERNAL REFERENCES: X 

XPROCEDURES INVOKED: FSAPPL X 

X PURPOSE: TO PERFORM PROCESSING AND BUILD 3270 DATA STREAMS. X 

X LINKAGE: CALL X 

X INPUT: STANDARD NCCF COMMAND PROCESSOR LINKAGE X 

x REGISTERS: R0=CWB ADDRESS X 

X Rl=WORK AREA ADDRESS. MAPPED BY DSECT FSSAVE. X 

x IF PARAMETER *XYZ ? WAS SPECIFIED, PARMBIT IS SET. x 

X R13=SAVE AREA ADDRESS x 

X R14=RETURN ADDRESS X 

X R15=ADDR OF FSAPPL X 

x NOTE: FSAPPL WILL CALL WRITREAD TO PERFORM THE TERMINAL I/O x 

X OF FULL SCREEN 3270 DATA STREAMS BUILT BY FSAPPL. X 

X ADDRESSABILITY TO WRITREAD IS BY 'DC V(WRITREAD)» IN X 

x IN FSAPPL. X 

x x 

XNCCF CONTROL BLOCKS: DSICWB DSIMVT DSIPDB DSISVL DSISWB x 

X DSITIB DSITVB x 

XNCCF MACROS: DSICBS DSIGET DSIFRE DSIPAS DSIPSS X 

X x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



F^ 



FULLSCR CSECT 





DS 


OH 


/X 




USING 


X,R15 


/x 




B 


PROLOG 


/x 




DC 


C'FULLSCR &SYSDATE. ' 


' /x 




DROP 


R15 


/x 


PROLOG 


STM 


R14,R12,12CR13) 


/x 




BALR 


R12,0 


/x 


PSTART 


DS 


OH 


/x 



USING PSTART, R12 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



ENTRY 



LINKAGE 



LR 


R2,R1 


USING 


DSICWB,R2 


LA 


R1,CWBSAVEA 


ST 


R13,4C,R1) 


ST 


R1,8C,R13) 


LR 


R13,R1 


L 


R4,CWBTIB 


USING 


DSITIB,R4 


L 


R10,TI8TVB 


ST 


R10,0(,R13) 


L 


R5,TVBMVT-DSITVB( 


USING 


DSIMVT,R5 


LA 


R11,CWBADATD 


USING 


DATD,R11 



/x MOVE THE CWB BASE X/ 

/x BASE THE COMMAND WORK BLOCK X/ 
/x POINT TO FULLSCR SAVEAREA x/ 
/X SAVE CALLER-S SAVEAREA ADDRESSX/ 
/x SAVE FULLSCR SAVEAREA ADDRESS x/ 



/x 



x/ 
x/ 

x/ 
x/ 



/x OBTAIN TIB ADDRESS 

/X BASE TASK INFO BLOCK 

/x GET TVB ADDRESS 

/x DEBUGGING AID: SAVEAREA -> TVBX/ 
,R10) /x GET MVT BASE x/ 

/x BASE NCCF MAIN VECTOR TABLE x/ 

/x POINT TO AUTO DATA AREA x/ 

/x DECLARE BASE REG x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x x/ 

/x COPY THE BUFFER HEADER PASSED. USE IT AS A PROTOTYPE. */ 
/x x/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/x BASE BUFHDR TEMPORARILY x/ 

/x INITIALIZE WORKING BUFHDR.,. */ 

/X FROM THE ONE PASSED X/ 

/x CHANGE THE LENGTH x/ 

/X TO THE REAL LENGTH X/ 

/x SET THE TEXT DISP TO . . . x/ 



USING 

L 

MVC 

LA 

MVC 

MVC 


BUFHDR, RIO 
R10,CWBBUF 
BUFFERC24), BUFHDR 
RIO, BUFFER 
HDRBLENG,BUFFERLN 
HDRTDISP,LNBUFHDR 


MVI 
DROP 


HDRMTYPE,HDRTYPEU 
RIO 



/x 



END OF BUFHDR x/ 



/X SET TYPE TO USER GEN-ED ^MSG 
/* DROP BUFHDR COVER 



x/ 
x/ 



XXXXXXXXXXX5<XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

x TEST TO SEE IF FSAPPL IS ALREADY RUNNING. IF SO, THE WORK AREA x 
x ADDRESS WILL BE IN THE TIB USER FIELD (TIBUFLD). x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
L R6, TIBUFLD /X X/ 

LTR R6,R6 /x TEST FOR ZERO x/ 

BNZ RUNNING /X x/ 
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XXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X SET UP ROUTINE * 

x x 

XXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x x/ 

/x GET WORK SPACE. STORE ADDRESS IN TIBUFLD. x/ 

/x x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



L R10,GETSIZE 
L R9,TIBTVB 
DSIGET LV=(R10), 
A=TIBUFLD, 
REENT=YES, 
LISTA=GETWORK, 
Q=YES, 
TASKA=(R9) 



/x PUT LENGTH IN REGISTER */ 

/x POINT TO THE TVB x/ 

/x LENGTH IS IN REGISTER */X 

/X RETURN ADDRESS IN TIBUFLD */x 

/X CALL IS REENTANT x/x 

/X DSIGET WORKAREA = GETWORK */x 
/x NCCF WILL KEEP TRACK OF AREA x/x 

/X TVB ADDRESS IS IN REG9 */ 



x 

X 

x 
x 
x 
x 
x 

X 
X 

GETOK 



LTR R15,R15 

B2 GETOK 

LA RIO, BUFFER 

USING BUFHDR,R10 

MVC HDRTEXT(42),MSG3 

MVC HDRMLENG,MSG3L 

DSIPSS TYPE=OUTPUT, 

BFR=(R10)> 

SWB=CWBSWB 



DROP 
B 



RIO 
CMDXIT 



/x WAS DSIGET SUCCESSFUL? */ 

/X BRANCH IF YES */ 

/x BASE THE BUFHDR ON BUFFER x/ 

/X MOVE IN THE MESSAGE TEXT X/ 

/x SET MESSAGE LENGTH IN BUFHDR x/ 

/x SEND MESSAGE TO THE TERMINAL x/x 

/x MESSAGE ADDRESS IS IN RIO X/x 

/X USE THE SWB PASSED */ 

/x DROP BUFHDR COVER X/ 

/x RETURN TO NCCF x/ 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxkxkxxxxxxxxxxxx/ 
/x x/ 

/* MOVE FULLSCR SAVEAREA TO THE GETMAINED AREA */ 

/* x/ 

/XXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



L R6, TIBUFLD 

USING FSSAVE,R6 

L R3,4(,R13) 

ST R3,SAVEREGS+4 

ST R6,8(,R13) 

LR R13,R6 

ST R2,SAVEREGS+28 



/X COPY THE BACK POINTER 

/x 

/x 

/x 



x/ 
x/ 
x/ 
*/ 



/X MOVE FWD PTR TO NEW SAVEAREA x/ 
/x POINT TO NEW SAVEAREA */ 

/x x/ 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x x/ 

/* DO INPUT PARAMETER PROCESSING */ 

/* x/ 

/XXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



NI 



parmbyte;x»ff'-parmbit /x SET PARAMETER BIT OFF 



x/ 
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/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X X/ 

/x IF THERE IS ONE OPERAND, AND IF IT IS 3 CHARACTERS AND X/ 
/x IF IT IS THE CHARACTERS »XYZ» THEN SET THE PARMBIT. X/ 
/x x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



L R3,CWBPDB 
USING DSIPDB,R3 
LH R9,PDBNOENT 
C R9,TW0 
BL NOTXY2 
MVI CMDPARM,C » 

DSIPAS PDB=(CWBPDB,'2 f ), 
OUT=CMDPARM, 
SWB=CWBSWB 



CLC 


CMDPARM,XYZ 


BNE 


N0TXY2 


01 


PARMBYTE, PARMBIT 


DROP 


R3 



/x POINT TO PARSE DESCRIP BLOCK X/ 
/x SET UP TEMPORARY BASE REGISTERx/ 
/x IF NUMBER OF PDB ENTRIES IS...X/ 

/x LESS THAN 2, THE COMMAND... X/ 

/x HAS NO OPERANDS. x/ 

/x INITIALIZE WITH A BLANK x/ 

/x x/ 

/x LOOK FOR FIRST OPERAND ALIAS x/x 

/x PLACE OUTPUT IN CMDPARM x/x 

/x USE THE SWB PASSED x/ 

/x x/ 

/x IS IT 'XYZ'? x/ 

/x BRANCH IF NOT */ 

/X SET FSAPPL PARAMETER BIT x/ 

/x DROP PDB COVER x/ 



NOTXYZ D3 



OH 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x x/ 

/x PERFORM INITIAL CALL TO FSAPPL */ 

/x x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



LR R0,R2 

LR R1,R6 

L R15,FSADDR 

BALR R14,R15 



/X MOVE CWB ADDRESS TO REG ZERO x/ 

/X POINT TO THE WORKAREA x/ 

/X LOAD THE ENTRY POINT ADDRESS X/ 

/x CALL FSAPPL x/ 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x x/ 

/x FINAL CLEAN-UP — WHEN RETURNING HERE, FSAPPL IS FINISHED X/ 
/x x/ 

/x ISSUE DSIFRE TO RELEASE THE WORK AREA POINTED TO BY x/ 
/x TIBUFLD AND R6 . x/ 

/x x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



LA 



R13,CWBSAVEA 



L R10,GETSIZE 
L R9,TIBTVB 
DSIFRE LV=(R10), 
A=TIBUFLD, 
LISTA=GETWORK, 
Q=YES, 
TASKA=(R9) 



XC 



TIBUFLD, TIBUFLD 



/x DONT POINT AT GETMAIN SAVEAREAx/ 

/X DSIFRE FREE WORKAREA HUNG ON x/ 

/x TIBUFLD x/ 

/X PUT LENGTH IN REGISTER X/ 

/x POINT TO THE TVB x/ 

/x LENGTH IS IN REGISTER x/x 

/X RETURN ADDRESS IN TIBUFLD x/x 

/x DSIGET WORKAREA = GETWORK x/x 

/x NCCF WILL KEEP TRACK OF AREA x/x 

/x TVB ADDRESS IS IN R9 X/ 

/x CLEAR USER FIELD x/ 
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/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X X/ 

/x PUT OUT COMMAND COMPLETE MESSAGE X/ 

/x x/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



LA RIO, BUFFER 
USING BUFHDR, RIO 
MVC HDRTEXT(28),MSG2 
MVC HDRMLENG,MSG2L 
DSIPSS TYPE=OUTPUT, 

BFR=CR10), 

SWB=CWBSWB 

DROP RIO 



/x BASE THE BUFHDR ON BUFFER */ 

/X MOVE IN THE MESSAGE TEXT */ 

/* SET MESSAGE LENGTH IN BUFHDR */ 

/X SEND MESSAGE TO THE TERMINAL x/x 

/x MESSAGE ADDRESS IS IN RIO X/x 

/x USE THE SWB PASSED X/ 

/* DROP BUFDHR COVER X/ 



B CMDXIT 
XXXXXXXXXXXXXXXXXXXXXXXXX END SETUP ROUTINE XXXXXXXXXXXXXXXXXXXXXXXXXXX 



X/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

x/x x/ 

x/x CMDXIT: THE COMMAND COMMON EXIT POINT. RETURN TO NCCF. x/ 
x/x x/ 

x/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

X 

CMDXIT DS OH /x x/ 

L R13,CWBSAVEA+4 /* RESTORE R13 TO ORIG R13 VALUE X/ 

LM R14,R12,12CR13) /X X/ 

SLR R15,R15 /x ALWAYS GIVE A GOOD RETURN CODEX/ 

BR R14 /X x/ 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

x x/ 

X ALREADY RUNNING FSAPPL. REINVOKED FOR FULL SCREEN INPUT. x/ 
X x/ 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
X 

RUNNING DS OH 

X /XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

X /x x/ 

x /* MOVE FULLSCR SAVEAREA TO THE GETMAINED AREA X/ 

x /x x/ 

X /XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

X 

L R3,4(,R13) /x x/ 

ST R3,SAVEREGS+4 /x x/ 

ST R6,3(,R13) /X MOVE FWD PTR TO NEW SAVEAREA x/ 

LR R13,R6 /X POINT TO NEW SAVEAREA X/ 

ST R2,SAVEREGS+28 /X STORE THE NEW CWB ADDRESS IN x/ 

X /x OLD SAVEAREA FOR REG 2 X/ 



X /xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

X /x x/ 

X /X IF THERE IS NO DATA (NOT EVEN THE 3270 AID), MUST BE A x/ 

X /x RESHOW (REFRESH THE SCREEN) REQUEST. x/ 

x /x x/ 

X /xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxkxxxxxxxxxxxxxxxxxxxxx/ 

X 

L R3,CWBPDB /x GET THE PDB ADDRESS X/ 

USING DSIPDB,R3 /X BASE PARSE DESCRIPTOR BLOCK x/ 

CLC PDBNOENT,ONE /x ONLY 1 PARSE ENTRY (VERB ONLY)x/ 

BNE INPUT /X BRANCH IF MORE (CANT BE LESS) X/ 

DROP R3 /x DROP PDB COVER */ 



X /xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

X /x x/ 

X /x RESHOW ROUTINE */ 

X /x x/ 

X /xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

X /x x/ 

L R3,SAVEINA /x FAKE INPUT = CLEAR KEY x/ 

MVC 0(3,R3),CLEARKEY /X MOVE CLEAR, 40, 40 TO INPUT X/ 

LA R10,CLEARLEN /x GET 'CLEARKEY' LENGTH X/ 

STH R10,INPUTLEN /x PASS LENGTH BACK TO FSAPPL x/ 

X /x x/ 

LR R0,R2 /x HAVE TO RETURN THE CWB ADDRESS*/ 

L R13,WRSAVA+4 /x RESTORE FSAPPL S.A. POINTER x/ 

SLR R15,R15 /x SEND ZERO RETURN CODE x/ 

L R14,12(,R13) /x RESTORE REG 14 x/ 

LM R1,R12,24(R13) /X RESTORE REGS 1-12 x/ 

BR R14 /x RETURN TO FSAPPL X/ 

x /xxxxxxxxxxxxx END RESHOW ROUTINE xxxxxxxxxxxxxxxxxxxxxxxxxx/ 
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X 

X 

* 

X 

X 
X 

INPUT 
x 

X 
X 



/XXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X X/ 

/X NORMAL PANEL INPUT ROUTINE */ 

/X X/ 

/XXXXXXXXXXXXXXXXkXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

DS OH 

/xxxxxxxxxxxxxxxx*xxkxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x x/ 

/x MOVE INPUT TO F.APPL. DO NOT COPY THE VERB OR BLANK. x/ 
/x ONLY COPY THE 3270 INPUT DATA. x/ 

/x x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



L R7,CWBBUF 
USING BUFHDR,R7 



LH 
SL 



R9,HDRMLENG 
R9,NINE 



STH R9,INPUTLEN 

LH RS,HDRTDISP 

ALR R8,R7 

L R14,SAVEINA 

LR R15,R9 

MVCL R14,R8 

DROP R7 

LR R0,R2 

L R13,WRSAVA+4 

SLR R15,R15 

L R1<*,12(,R13) 

LM R1,R12,2<+(R13) 

BR R14 



/x POINT TO THE INPUT BUFFER x/ 

/x ESTABLISH BASE REG x/ 

/X GET THE INPUT DATA LENGTH X/ 

/x DECREMENT BY 9 (8 FOR VERB, X/ 

/x 1 FOR BLANK) x/ 

/x PASS INPUT LENGTH TO FSAPPL x/ 

/x x/ 

/x GET INPUT TEXT DISPLACEMENT x/ 

/x ADD TO THE BUFFER ADDRESS x/ 

/x x/ 

/x LOAD THE INPUT AREA ADDRESS X/ 

/x COPY THE LENGTH OF THE DATA X/ 

/x MOVE THE DATA READ X/ 

/x DROP BUFHDR COVER X/ 

/x HAVE TO RETURN THE CWB ADDRESSX/ 

/X RESTORE FSAPPL SAVEAREA PTR X/ 

/X SEND ZERO RETURN CODE X/ 

/X RESTORE REG 14 X/ 

/X RESTORE REGS 1-12 */ 

/x RETURN TO FSAPPL x/ 



xxxxxxxxxxxxxxxxxxxxxx END INFJT ROUTINE xxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
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X/XXXXXXXXXXXXXXXX 


X/X 






X/X 


WRITREAD - THE 


X/X 






X/X 


FUNCTION: TO P 


X/X 


DSIPSS 


TYPE=PA! 


X/X 






X/X 


INPUT: 


RO = ' 


X/X 




Rl = i 


X/X 






X/X 






X/X 






X/X 






X/X 






X/X 






X/X 






X/X 






X/X 




R13 = 


X/X 




R14 = 


X/X 




R15 = 


X/X 






X/X 


NOTES: 


(1) IF 


X/X 




(2) IF 


X/X 




(3) IF 


X/X 




NOT 


X/X 




THI 


X/X 




TO 


X/X 




(4) ANY 


X/X 




327 


X/X 




AND 


X/X 






x/xxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

x/ 

TERMINAL WRITE/READ INTERFACE */ 

x/ 

ERFORM FULL SCREEN I/O BY ISSUING THE NCCF MACRO X/ 
NEL. */ 

x/ 

CWB ADDRESS */ 

PARAMETER LIST ADDRESS. THE PARMLIST FORMAT IS: X/ 

+ + + + + x/ 



PARMOUT 



PARMIN 



PARMOUT = OUTPUT BUFFER ADDRESS 
PARMIN = INPUT BUFFER ADDRESS 
PARMOUTL = OUTPUT BUFFER LENGTH 
PARMINL = INPUT BUFFER LENGTH 

SAVE AREA ADDRESS 

RETURN ADDRESS 

ENTRY POINT (WRITREAD) ADDRESS 



|PARMOUTL|PARMINL| x/ 

.+ + . + */ 

8 10 11 x/ 

x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 



PARMOUT=0, NO OUTPUT IS DONE. 

PARMIN=0, NO INPUT IS DONE. 

DATA IS TO BE READ FROM THE TERMINAL, RETURN IS 

MADE TO FSAPPL UNTIL THE DATA HAS BEEN READ. 
S REQUIRES A RETURN TO NCCF AND THE RESUME COMMAND x/ 
BE EXECUTED. */ 

DATA IN THE OUTPUT BUFFER MUST BE A COMPLETE X/ 
DATA STREAM INCLUDING THE COMMAND CODE, WCC x/ 

DATA. x/ 

x/ 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



WRITREAD DS OH 

ENTRY WRITREAD 



USING 


X,R15 


STM 


R14,R12,12(R13) 


L 


R12, AENTRY 


USING 


PSTART,R12 


DROP 


R15 


CNOP 


0,4 


B 


x+8 


AENTRY DC 

X 

LR 


A(PSTART) 


R2,R0 


LA 


R11,CWBADATD 


L 


R6,TIBUFLD 


LA 


R15,WRSAVA 


ST 


R13,4(,R15) 


ST 


R15,8(,R13) 


LR 


R13,R15 



/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 
/x 



TERMINAL I/O ENTRY POINT 



SAVE REGS 

POINT TO MAIN CSECT ENTRY 



ALIGN TO A FULL WORD 

ADDR OF MAIN ENTRY 

RE-ESTABLISH CWB COVERAGE 
POINT TO THE AUTO AREA 
POINT TO WRITREAD SAVEAREA 

CHAIN SAVE AREAS 

CHAIN THE OTHER WAY 

POINT TO SAVEAREA WITH R13 



x/ 

x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
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/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X X/ 

/X SET UP THE DSIPSS TYPE=PANEL PARAMETER LIST. */ 

/x x/ 

/XXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/XXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X X/ 

/x SET UP RESUME VERB. USE THE VERB FULLSCR WAS INVOKED WITH. x/ 
/x x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



USING PARMLIST, Rl 

MVC PSSCMD, BLANKS 

L R1CCWBPDB 

USING DSIPDB,R10 

LA R10,PDBTABLE 

USING PDBENTRY,R10 

SLR R3,R3 

IC R3,PDBLENG 

BCTR R3,0 

LH R9,PDBDISP 

AL R9,CWBBUF 

EX R3,EXM0VE2 
DROP RIO 



/X DECLARE BASE REGISTER X/ 
/x START BY BLANKING COMMAND VERBX/ 

/X GET VERB FROM FIRST PDB ENTRY x/ 

/x BASE THE PDB X/ 

/x POINT TO THE FIRST ENTRY x/ 

/x BASE THE ENTRY TEMPORARILY X/ 

/x CLEAR FOR THE 'IC X/ 

/X GET THE LENGTH OF THE VERB x/ 

/X DECREMENT FOR EXECUTE X/ 

/x GET DISPLACEMENT TO VERB,... x/ 

/x ADD INPUT BUFFER ADDRESS,... x/ 

/X TO POINT TO THE VERB. */ 

/x MOVE JUST IriE VERB x/ 

/X DROP PDB COVER */ 



/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/x x/ 

/x SET UP REMAINDER OF THE PARAMETER LIST. x/ 

/x x/ 

/xxxxxxxxxxxxxxxxxxxkxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



MVC PSSOUT,PARMQUT 
MVC PSSOUTL,PARNOUTL 
MVC PSSINL,PARMINL 



L R3,PARMIN 
ST R3,SAVEINA 
DROP Rl 



/X MOVE THE OUTPUT BUFFER ADDR x/ 

/x MOVE THE OUTPUT DATA LENGTH X/ 

/x MOVE THE EXPECTED INPUT... x/ 

/x LENGTH X/ 

/x SAVE THE INPUT BUFFER ADDRESS x/ 

/x IN THE WORK AREA */ 

/x DROP PARMLIST COVER x/ 



/XXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/x */ 

/x ISSUE DSIPSS TYPE = PANEL. x/ 

/x x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



LA R10,PSSPARM 
DSIPSS TYPE=PANEL, 
PANEL=(R10), 
SWB=CWBSWB 



/X POINT TO PANEL PARAM LIST x/ 

/X REQUEST FULL SCREEN I/O x/x 

/X SPECIFY PARMLIST ADDRESS x/x 

/x SPECIFY SWB ADDRESS x/ 



LTR 
BZ 



R15,R15 
PANELOK 



/x TEST THE DSIPSS RETURN CODE X/ 
/X IF ZERO (GOOD), BRANCH x/ 
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X /XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

X /x x/ 

X /X DSIPSS HAS RETURNED A NONZERO RETURN CODE. NO ERROR ANALYSIS */ 

X /* IS DONE. A MESSAGE WILL BE ISSUED IN STANDARD NCCF MODE AND */ 

x /x THEN FINAL EXIT IS TAKEN. */ 

x /x x/ 

X /XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
X 



LA RIO, BUFFER 

USING BUFHDR,R10 

MVC HDRTEXTC41),MSG1 
HDRMLENCMSG1L 
R15,0NEW0RD 
UNPACK1,FIVEBYTE 
UNPACK1(8),HEXTAB 



MVC 

ST 

UNPK 

TR 

MVC 



HDRTEXT+22(8),UNPACK1 /X MOVE IN INSERT 



/x SET UP BUFFER COVER x/ 

/x BASE THE BUFHDR x/ 

/x MOVE IN THE ERROR MSG TEXT x/ 

/x SET MSG LENGTH X/ 

/x PUT RETURN CODE INTO STORAGE x/ 

/x UNPACK THE RETURN CODE x/ 

/x CONVERT TO PRINTABLE HEX x/ 

x/ 



DSIPSS TYPE=OUTPUT, 
BFR=(R10), 
SWB=CWBSWB 



/X REQUEST SINGLE LINE OUTPUT X/x 
/x TEXT IS IN BUFFER X/x 

/X USE THIS SWB x/ 



DROP RIO 



/x DROP BUFHDR COVER 



x/ 



/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXX/ 

/x DSIFRE FREE WORKAREA HUNG ON TIBUFLD x/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXX/ 



LA 



R13,CWBSAVEA 



/x MOVE SAVEAREA BACK TO THE CWB x/ 



L R1CGETSIZE 

L R9,TIBTVB 

DSIFRE LV=CR10), 
A=TIBUFLD, 
LISTA=GETWORK, 
Q=YES, 
TASKA=(R9) 



/x PUT LENGTH IN REGISTER x/ 

/x POINT TO THE TVB x/ 

/x LENGTH IS IN REGISTER x/x 

/x RETURN ADDRESS IN TIBUFLD X/x 

/x DSIGET WORKAREA = GETWORK x/x 
/x NCCF WILL KEEP TRACK OF AREA x/x 

/x TVB ADDRESS IS IN R9 x/ 



SLR 

ST 

B 



R3,R3 

R3, TIBUFLD 

CMDXIT 



/X CLEAR USER FIELD SO THAT... X/ 
/x NEXT TIME WILL BE FIRST TIME x/ 
/X EXIT THE COMMAND PROCESSOR X/ 



X /xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

X /x x/ 

X /x DSIPSS TYPE=PANEL WAS SUCCESSFUL. PROCEED. x/ 

x /x x/ 

X /xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

X 

/x x/ 

/x WAS A READ REQUESTED? TEST... x/ 

/x THE INPUT AREA LENGTH x/ 

/x EXIT TO NCCF IF READ WAS... x/ 

/X REQUESTED. COMMAND WILL BE... X/ 

/x REDRIVEN. x/ 

/X X/ 

/x REQUEST WAS WRITE ONLY x/ 

/x ZERO NUMBER OF BYTES READ. x/ 

/x x/ 

/x RESTORE CALLER-S SAVEAREA X/ 

/X RESTORE REGS x/ 

/X RETURN TO CALLER (WRITE ONLY) x/ 



PANELOK 

X 
X 


DS 
LH 
LTR 
BNZ 


OH 

R10,PSSINL 
R10>R10 
CMDXIT 


X 
X 

X 


STH 


R10,INPUTLEN 


L 

LM 

BR 


R13,4(,R13) 

R14,R12,12CR13) 

R14 



X /x xxxxxxxxxxxxxxxxxx END WRITREAD xxxxxxxxxxxxxxxxxxxxxxxxxxxxx x/ 
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/XXXX 

/X 

/X 

/X 

/XXXX 



X 
X 
X 

DATA 

ONE 

LNBUFHDR 

BUFFERLN 

EXMOVE1 

EXM0VE2 

TWO 
NINE 
GETSIZE 
X 

X 
X 

FSADDR 

XYZ 

CLEARKEY 

CLEARLEN 

BLANKS 

MSG1 

MSG1L 

MSG2 

MSG2L 

MSG3 

MSG3L 

HEXTAB 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

X/ 
CONSTANTS x/ 

x/ 

XXXXXXXXXXHXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 



DS 

DC 

DC 

DC 

MVC 

MVC 

DS 

DC 

DC 

DC 

NOPR 



ORG 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

DC 



OH /x 

H'l' /x 

H'24' /x 
AL2CBUFFERND-BUFFER) /x 

0(0,R3),9(R7) /X 

PSSCMD(0),0(R9) /x 

OF /x 

F'2' /x 

F'9' /x 

F'10000* /X 



CONSTANT »1» 
LENGTH OF BUFHDR 
LENGTH OF 'BUFFER* 
EXECUTED MOVE 
EXECUTED MOVE 



CONSTANT 
CONSTANT 
GETMAINED 



» 2 » 

.9* 

WORK 



SPACE SIZE 



x/ 
x/ 
x/ 

x/ 
x/ 
x/ 
x/ 
x/ 
x/ 
*/ 



C(ENDDATD-DATD)/257X16) /X GUARANTEE THAT CWB WORK... */ 

/x SPACE DOES NOT GROW OVER 256 */ 

/X IF TOO BIG, WILL GET ASM ERRORS/ 

X-2 /x NOPR NOT REALLY NEEDED. x/ 



VCFSAPPL) 

CL8'XYZ' 

X'6D4040' 

x-CLEARKEY 

CL8' ' 

CL41'FULLSCR: RETURN 

AL2CX-MSG1) 

CL28'FULLSCR: PROCESS 

AL2CX-MSG2) 

CL42'FULLSCR: DSIGET 

AL2CX-MSG3) 

x-240 

C0123456789ABCDEF' 



/X ADDRESS OF FULL SCREEN APPL x/ 

/X CONSTANT FOR OPERAND CHECK */ 

/x CLEAR AID, ROW 0, COLUMN x/ 

/x LENGTH OF 'CLEARKEY' */ 

/x BLANKS x/ 

CODE XXXXXXXX FROM DSIPSS' 

/x LENGTH OF MSG1 */ 

ING COMPLETE' 

/x LENGTH OF MSG2 x/ 

FAILED. COMMAND TERMINATED' 

/x LENGTH OF MSG3 x/ 

/x PRINTABLE HEX CONVERSION TABLEX/ 

/x x/ 
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X /XXXXXXXXXXXXXXXX 


X /x 






X /X 






X /X 






X /XXXXXXXXXXXXXXXX 
X 


DATD 


DSECT 




GETWORK 
BUFFER 


DS 


CL16 


DS 


CL156 


BUFFERND 
x 


EQU 


X 


DS 


OF 


PSSPARM 


DS 


0CL16 


PSSCMD 


DS 


CL8 


PSSOUT 


DS 


AL4 


PSSOUTL 


DS 


FL2 


PSSINL 


DS 


FL2 


X 


DS 


OF 


FIVEBYTE 


DS 


0CL5 


ONEUORD 


DS 


CL4 


UNPACK1 


DS 


CL9 


CMDPARM 


DS 


CL8 


ENDDATD 


EQU 


X 


X 







xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

x/ 
DSECTS X/ 

x/ 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

/X CWB WORK SPACE DSECT X/ 

/x DSIGET/DSIFRE PARMLIST X/ 

/x x/ 

/X WORK BUFFER x/ 

/x END OF 'BUFFER 1 X/ 

/x x/ 

/x FULL WORD ALIGN x/ 

/x DSIPSS TYPE=PANEL PARMLIST x/ 

/x VERB X/ 

/x OUTPUT BUFFER ADDRESS X/ 

/x OUTPUT BUFFER LENGTH X/ 

/X INPUT DATA LENGTH x/ 

/x x/ 

/x MISC. SCRATCH VARIABLES x/ 

/x FULL WORD ALIGN X/ 

/x 5 BYTES USED FOR UNPACK/TR X/ 

/X FIRST 4 BYTES OF FIVEBYTE X/ 

/x 9 BYTES USED FOR UNPACK/TR x/ 

/x COMMAND PARAMETER FROM DSIPAS x/ 

/x END OF CWB WORK AREA DSECT x/ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



PARMLIST 


DSECT 




PARMOUT 


DS 


A 


PARMIN 


DS 


A 


PARMOUTL 


DS 


H 


PARMINL 


DS 


H 


X 







/XXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXX/ 

/X MAP FOR WRITREAD PARMLIST X/ 
/X OUTPUT AREA ADDRESS x/ 

/x INPUT AREA ADDRESS x/ 

/x OUTPUT AREA LENGTH x/ 

/x INPUT AREA LENGTH x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 



X 






FSSAVE 


DSECT 




SAVEREGS 


DS 


18F 


WRSAVA 


DS 


18F 


SAVEINA 


DS 


A 


INPUTLEN 


DS 


H 


PARMBYTE 


DS 


X 


PARMBIT 


EQU 


X'01' 


FSWORK 


EQU 


X 


X 






X 







/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/X FSAPPL WORK AREA DSECT X/ 
/x SAVE AREA x/ 

/x SAVE AREA FOR CALLING WRITREAD*/ 
/X INPUT AREA ADDR SAVE AREA X/ 
/x NUMBER OF BYTES READ X/ 

/x PARM FLAG BYTE x/ 

/x FSAPPL PARAMETER BIT X/ 

/x REMAINDER OF SPACE FOR USE x/ 
/X BY FSAPPL. x/ 

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
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Appendix G. Glossary of Terms and Abbreviations 



This glossary defines terms and abbreviations that are 
important in Network Communications Control 
Facility (NCCF) publications. It does not include 
terms previously established for IBM operating 
systems and for products used with NCCF. Additional 
terms can be found by referring to the index, to 
prerequisite and corequisite books, and to the IBM 
Data Processing Glossary, GC20-1699. 



command. A request from a terminal for the performance of an 
operation or the execution of a particular program. A 
command may be entered from a terminal by an operator, or 
generated from a command list, or implied in a received 
message, or issued by a command processor. 

command list. A sequential list of commands and/or control 
statements that is assigned a name. When the name is invoked 
(as a command) the commands in the list are executed. 



ACF/TCAM. Advanced Communications Function for the 
Telecommunications Access Method. 



command processor. A problem program executed to perform an 
operation specified by a command. 



ACF/VTAM. Advanced Communications Function for the 
Virtual Telecommunications Access Method. 

ACF/VTAME. Advanced Communications Function for the 
Virtual Telecommunications Access Method Entry. 

alphameric. Pertaining to a character set that contains letters, 
digits, and usually other characters, such as punctuation marks. 

AMH Application message handler. 

application message handler (AMH). In ACF/TCAM, a routine 
that routes messages between application programs or between 
an application program and a device message handler. NCCF 
in ACF/TCAM is supplied with an AMH. See also device 
message handler. 

application program. (1) A program written for or by a user that 
applies to a particular application. (2) In data communication, 
a program used to connect and communicate with terminals in 
a network, enabling users to perform application-oriented 
activities. 

authorization message. An NCCF message that is directed to an 
authorized operator. An example is a message about the use of 
NCCF, such as a successful logon, repeated unsuccessful 
logons, logon rejected because of invalid password, a DSM 
error message, and logoff. 

authorized operator. In NCCF, an operator who has been 
authorized to receive undeliverable messages, authorization 
messages, and lost terminal messages. Authorization is 
specified on the AUTH statement during NCCF definition. 

both regular and immediate command. A NCCF command that 
may be executed as either a regular or an immediate command, 
depending on where it is encountered. If the command is 
received from an operator terminal, it is executed as an 
immediate command. If it is received in another way (for 
example, in a command list), it is executed as a regular 
command. 

CNM. Communications network management. 



communication controller. A type of communication control unit 
whose operations are controlled by a program stored and 
executed in the unit. Examples are the IBM 3704 and 3705 
Communication Controllers. 

communication network management (CNM). The process of 
designing, installing, operating, and managing the distribution 
of information and control among end users of communication 
systems. 

communication network management application. A combination 
of the components and elements that comprise the problem 
determination, operational facilities, and performance 
functions of CNM. An example is NCCF with added CNM 
processors. 

communication network management interface. The interface 
provided to application programs by the access method for 
handling data and commands associated with communication 
network management. CNM data and commands are handled 
across this interface. 

communication network management processor. A command 
processor that manages one of the functions of a 
communication network management application. A CNM 
processor is executed under control of NCCF and requires 
NCCF as a prerequisite program. 

conditional command list. An NCCF command list consisting of 
control statements and variables that control the sequence of 
execution of the command list. 

control statement. In NCCF, a statement in a command list that 
controls the processing sequence of the command list or allows 
the command list to send messages to the operator and receive 
input from the operator. 

cross-domain communication. In a multiple-domain network, 
communication between domains. 

cursor. A movable spot of light on the screen of a display 
device, usually indicating where the next character will be 
entered. 



Appendix G. Glossary of Terms and Abbreviations G-l 



data services command processor (DSCP). An NCCF component 
that structures the request for recording and retrieving data in 
the application program's data base, and also structures the 
request to solicit data from a network device. 

data services manager (DSM). A function in NCCF that provides 
VSAM services for data storage and retrieval and provides the 
interface between DSCPs and the CNM interface. 

data services request block (DSRB). The NCCF control block 
that allows communication between the data services task and a 
data services command processor. 

data services task (DST). The NCCF subtask that provides 
support to gather, record, and manage data in a VSAM file that 
contains communication network management information. 

device message handler. In ACF/TCAM, a use --defined routine 
that routes messages between a device and an application 
message handler, or between devices. See also message handler. 
Contrast with application message handler. 

domain. In a data communication system ., the portion of the 
total network that is controlled by the SSCP in one 
telecommunication access method. 

DSCP. Data services command processor. 

DSM. Data services manager. 

DSRB. Data services request block. 

DST. Data services task. 

exit routine. Any of several types of special-purpose routines 
that handle processing for certain conditions in a program. 
NCCF provides for user-written exit routines. NCCF has its 
own data communication access method exit routines an system 
exit routines. 

full-line mode. A form of screen presentation in NCCF where 
the message area of the terminal screen consists of 80-byte 
messages. Full-line mode is used by NPDA. Contrast with 
standard NCCF mode. 

full-screen mode. A form of screen presentation in NCCF where 
the contents of an entire terminal screen can be displayed at 
once. Full-screen mode is often used for fill-in-the-blanks 
prompting. 

hard-copy log. In NCCF, a file written on a hard-copy device 
(such as a printer) that contains a record of all messages passing 
through NCCF that are associated with a specific operator or 
operators. 

hard-copy task (HCT). The NCCF subtask that controls the 
passage of data between NCCF and the hard-copy log device. 

HCT. Hard-copy task. 

immediate command. In NCCF, a command (such as GO, 
CANCEL, or RESET) that can be executed while a regular 
command is being processed. 



log. A collection of messages or message segments placed on a 
secondary storage device for accounting or data collection. 

logger. In NCCF, a subtask that records errors from EP mode 
and local mode devices to the EP data base and transmits errors 
from NCP mode devices supported by ACF/VTAM and 
ACF/TCAM to the NCP data base. 

message. In telecommunications, a combination of characters 
and symbols transmitted from one point to another, 

message handler (MH). Under ACF/TCAM, a sequence of 
user-specified macro instructions that examine and process 
control information in message headers, and perform the 
functions necessary to prepare message segments for 
forwarding to their destinations. One message handler is 
required for each line group having unique message-handling 
requirements. 

MH. Message handler. 

MSNF. Multisystem Networking Facility. 

Multisystem Networking Facility (MSNF). An optional feature of 
ACF/VTAM and ACF/TCAM that permits these access 
methods, together with ACF/NCP/VS, to control a 
multiple-domain network. 

NCCF. Network Communications Control Facility. 

NCP. Network Control Program 

Network Communications Control Facility (NCCF). A program 
product consisting of a base for command processors that can 
monitor, control, and improve the operation of a data 
communication network. 

Network Control Program (NCP). A program, generated by the 
user from a library of IBM-supported modules, that controls the 
operation of the communication controller. 

network operator. In SNA, a person or program responsible for 
controlling the operation of all or part of a network. 

Network Problem Determination Application (NPDA). A program 
product that assists the user in identifying communication 
network problems from a central control point using interactive 
display techniques. NCCF is required fo NPDA. 

NPDA. Network Problem Determination Application. 

network resource. Any named entry known to the access 
method. Network resources include network control programs 
(NCPs), local and remote terminals, lines, application 
programs, cross-domain resource tables, and cross-domain 
resource managers. 

operand. Information entered with a command name to define 
the data on which a command processor operates and to control 
the execution of the command processor. 

operator. See network operator. 
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operator control. The ACF/TCAM facility that allows users to 
enter ACF/TCAM operator control commands to examine or 
alter the status of the communication network. Operator 
control commands may be entered from an authorized station 
on a nonswitched link, from the system console, or from an 
application program. 

operator station. A control point in NCCF that links a terminal, 
an operator, and the control environment assigned to the 
operator (such as profile and span of control). The logical unit 
from which an operator logged on. 

operator station task (OST). The NCCF subtask that establishes 
and maintains the online session with the network operator. 
There is one operator station task for each network operator 
who logs on to NCCF. 

optional subtask. A user-defined subtask specified on the TASK 
definition statement. 

OST. Operator station task. 

overlapped span of control. A condition that exists when the 
network resource name appears in a span or spans associated 
with more than one active network operator. Under such a 
condition, either operator may control the resource. The status 
of the device depends on the cumulative effect of commands 
entered and the sequence in which the commands are received 
by the access method. 

password. (1) A unique string of characters that a program, 
computer operator, or user must supply to meet security 
requirements before gaining access to data. (2) In systems with 
time sharing, a 1- to 8-character symbol that the user may be 
required to supply at the time he logs on the system. The 
password is confidential, as opposed to the user identification. 

POL ACF/VTAM's program operator interface. 

PPT. Primary POI task. 

presentation services command processor (PSCP). An NCCF 

component that processes requests from a user terminal and 
formats displays to be presented at the user terminal. 

primary POI task (PPT). The NCCF subtask that processes all 
unsolicited messages received from the ACF/VTAM program 
operator interface (POI) and either delivers them to the 
controlling operator or command processor. The primary POI 
task also processes the initial command specified to execute 
when NCCF is initialized, and timer request commands 
scheduled to execute under the PPT. 

profile. In NCCF, a record that describes the control available 
to a particular network operator. The profile includes the 
operator's span of control, the name of the terminal to be used 
as a hard-copy device, whether the operator is authorized (see 
authorized operator), and (optionally) the name of a command 
or command list that is executed immediately after logon is 
successfully completed. 

program operator. An ACF/VTAM application program that is 
authorized to issue ACF/VTAM operator commands and 
receive ACF/VTAM operator messages. 



PSCP. Presentation services command processor. 

regular command. Any access method or NCCF command that 
is not an immediate command and is processed by a regular 
command processor. Only one regular command may be 
executed at one time; regular commands issued while other 
regular commands are being processed are stacked. Contrast 
with immediate command. 

resource. See network resource. 

response. (1) An answer to an inquiry. (2) The unit of 
information that is exchanged between the access method or an 
application program and an SNA terminal to describe how a 
request arrived. 

routing qualifier. An explicit parameter added to commands in 
NCCF to accommodate cross-domain execution. NCCF 
removes the routing qualifier before the command is passed to 
the appropriate access method. 

scope of commands. An NCCF facility that allows restriction of 
NCCF commands and operands to a subset of all NCCF 
operators in the network. 

SNA. Systems Network Architecture. 

span. In NCCF, a user-defined group of network resources 
within a single domain. Each major or minor node is defined as 
belonging to one or more spans. See also span of control 

span of control. The total network resources over which a 
particular network operator has control. All the network 
resources listed in spans associated through profile definition 
with a particular network operator are within that operator's 
span of control. 

standard NCCF mode. A form of screen presentation in NCCF 
where the message area of the terminal screen consists of 69 
bytes for each message and an 1 1 byte previx. Contrast with 
full-line mode. 

station. (1) One of the input or output points of a system that 
uses communication facilities; for example, the telephone set in 
the telephone system or the point where the business machine 
interfaces with the channel on a leased private line. (2) One or 
more computers, terminals or devices at a particular location. 

suppression character. In NCCF, a user-defined character that is 
coded at the beginning of a command list statement or a 
command to prevent the statement or command from 
appearing on the operator's terminal screen, the hard-copy log, 
and the NCCF log. 

TCAM control task (TCT). The NCCF subtask that controls 
communication between NCCF and ACF/TCAM. 

TCT. ACF/TCAM control task. 

terminal. A device, often equipped with a keyboard and some 
kind of display, capable of sending and receiving information 
over a communication link. 
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timer initiation. An NCCF facility that allows the operator to 
schedule a command or command list to be executed based on a 
timer, either at a specific time or repetitively at specified time 
intervals. 

tinier request. A command or command list scheduled to 
execute either at a specific time or repetitively at specified time 
intervals. 

unsolicited message routing. (1) A method of routing replies to 
CNM application programs by using a routing table instead of a 
process request identifier. (2) A method of routing access 
method messages to an NCCF operator by using the PPT. 



variable. In NCCF, a character string beginning with & that is 
coded in a command list and is assigned a value during 
execution of the command list. 

VSAM. Virtual Storage Access Method. 

VSE/OCCF. VSE/Operator Communication Control Facility. 

VSE/Operator Communication Control Facility (VSE/OCCF). A 
program product designed to run with the VSE operating 
system and NCCF. VSE/OCCF minimizes required operator 
interaction with the VSE system console by intercepting 
messages from VSE and application programs and responding 
automatically with pre-coded actions. 
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Index 



&BEGWRITE 2-12 
&CONCAT 2-16 
&CONTROL 2-12 
&EXIT 2-13 
&GOTO 2-13 
&IF 2-14 
&LENGTH 2-17 
&NCCFID 2-18 
&NCCFSTAT 2-18 
&PAUSE 2-15 
&SUBSTR 2-17 
&THEN 2-14 
& WRITE 2-16 

A operand 

DSIFRE macro 3-23 

DSIGET macro 3-24 
alias, command operand 3-36 
alphanumeric G-l 

application message handler (AMH) G-l 
application program G-l 
APPLID operand, DSIPSS macro 3-40 
AREA operand, DSIDATIM macro 3-20 
ARTPOS operand, DSIRDS macro 3-47 
assignment statements 

in command lists 2-11 
asynchronous full-screen command processors 4-21 
ASYPANEL operand, DSIPSS macro 3-42 
authorization and resource table {see DSIART) 
authorization message G-l 
authorized operator 

definition of G-l 

locating {see DSILCS macro) 
AUTHRCV operand 

DSILCS macro 3-28 

DSIMQS macro 3-35 

BFR operand 

DSICES macro 3-19 

DSIMBS macro 3-31 

DSIMQS macro 3-35 

DSIPRS macro 3-38 

DSIPSS macro 3-43 

DSIWCS macro 3-50 

DSIWLS macro 3-50 
BNDRY operand, DSIGET macro 3-25 
"both" command processor 4-4 
buffer, command 

obtaining 4-11 
buffer header (BUFHDR) 

example of use 3-9 

fields in 3-7 

format of 3-8 

in command processors 4-11 

listed in DSITIB C-42 
BUFHDR {see buffer header) 

CANCEL operand, DSIPSS macro 3-42 
CBADDR operand, DSILCS macro 3-28 
cbname operand, DSICBS macro 3-18 
CMD operand, DSIKVS macro 3-26 
coding guidelines 

command list 2-6 

command processor 4-1 

exit routine 5-13 



NCCF, generally 1-1 
subtask 6-3 
command analysis {see DSICES macro) 
command list 

assignment statements 2-11 
coding guidelines 2-6 
commands 2-10 
comments 2-10 
control statements 2-11 
control variables 2-8 
defining to NCCF 2-2 
examples of 2-21-2-27 
filing 2-2 
invoking 

from an access method message 2-4 

from an operator terminal 2-3 

from another command list 2-3 

from a user-written command processor 2-3 
labels 2-9 
naming 2-2 
null statements 2-10 
parameters 2-7 
PPT restrictions on 2-5 

source compatibility with NCCF Release 1 1-1 
suppression character in 2-6 
user variables 2-9 
variables 

control variables 2-8 

definition of G-4 

in general 2-6 

parameters 2-7 

user variables 2-9 
command processors, "both" 4-4 
command processors, data services 
definition of G-2 
example of processing logic 4-14 
in general 4-5 
initial revocation of 4-13 
restrictions for 4-5 
sample CNM data E-12 
sample VS AM data E-l 
use in program design 4-6 
command processors, generally 
address of command 4-12 
both regular and immediate commands 4-4 
calling 4-12 

coding guidelines for 4-1 
control block considerations for 4-6, 4-7 
definition of G-l 
example of 

data services E-l, E-12 

regular D-l 
executed under DSIPPT 4-4 

executed under DST {see command processors, data services) 
full-line 4-19 
full-screen 4-29 
immediate commands 4-3 
invoking 4-1, 4-11 
looking up address of 4-12 
operating environment 4-2 
PPT restrictions on 4-4 
register usage for 4-2 
regular commands 4-2 
return codes for 4-1 5-4-19 
source compatibility with NCCF Release 1 1-1 
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command processors, full-line 4-19 
command processors, full-screen 

asynchronous 4-21 

coding guidelines 4-1,4-20 

DSIPSS return codes in 4-25 

escaping from 4-25 

in general 4-20, 4-24 

logging input and output 4-25 

RESHOWkey 4-25 

reshow option 4-25 

sample F-l 

screen formatting in 4-24 

suspending 4-25 

synchronous 4-23 
command processors, immediate 

how called 4-3, 4-4 
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